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Page 8. With the Application Wizard, you can create customizable 
menus and toolbars, as well as single-record and master-detail 
data forms. 



You can find all the code published in this issue of Getting Started with Visual Basic on The 
Development Exchange (DevX) at http:ZAvww.windx.coni. All the listings and associated files 
discussed in the articles are available for free to Registered members of DevX, in one ZIP file. This 
ZIP file is also posted in the Magazine Library oftheKS/VForum on CompuServe. DevX Premier Club 
members ($20 for six months) can get each article's listings and associated files in a separate file, 
plus archives of all code everpublished mGetting Started with Visual Basic, Visual Basic Programmer's 
Journal, Java Pro, and Microsoft Interactive Developer magazines. 

FREE CODE ONLINE 

GS298: All the listings printed in this magazine and the associated code files, in one ZIP file. 
PREMIER CLUB CODE 

DevX Premier Club members can download listings and associated files for each article individu- 
ally. For example, to download the individual code file associated with "Discover VB's Hidden 
Treasures" by Francesco Balena, you would type in FBGS298 as the Locator* code: 

i~ FBGS298: "Discover VB's Hidden Treasures" 



FBGS298 
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Please see the Code Online boxes at the end of the articles for details on the files. 
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Rugs and Carpets 




I 







heavy fabrics commonly 
bsed as floor coverings. A 
arpet in that it is usually 
and can be of any size but 
over an entire floor (see 
rings). 



rived from the Scandinavian 
of the old Norwegian word 
a wool covering for the bed 
centuries in Europe, the 
rough, heavy woolen fabric 
coarse, napped finish and 
the poorer classes. 

The term carpet was used originally to describe 
coverings for tables, beds, and other furniture, 
and only from the early 18th century was it 
associated with the floor. The modern usage is 
imprecise and includes all woven floor 
coverings and some textiles, such as wall 
hangings, furniture coverings, and saddlebags, 



Page 24. Discover how to use fonts and typography to create 
visually appealing user interfaces. For example, Microsoft Encarta 
uses clear and consistent fonts that set a sophisticated tone. 
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your phone number and e-mail address; we will contact you if we decide to profile your application. As an 
alternative to contacting us by mail or fax, you can also send letters, suggestions for Basic Heroes, and other 
article ideas tovbpjedit@fawcette.com. You can also post them in the Talk to Editors section of the VBPJ 
Forum on CompuServe, and Talk to the Editors on The Development Exchange. 

THE DEVELOPMENT EXCHANGE ON THE WEB 

Through The Development Exchange ( DevX) Web site, located at http://www.windx.coni, you can 
subscribe to Visual Basic Programmer's Journal, Microsoft Interactive Developer, Java ftt»,ortheVBCD; 
register for VBITS or VB Jump Start; order books; and browse resources for Windows developers, 
including listings of add-on tools for Windows developers and links to other software-industry Websites. 
You can find all the code published in this issue of Getting Started with Visual Basic on The Development 
Exchange. All the listings and associated files discussed in the articles are available for free to Registered 
members of DevX, in one ZIP file. This ZIP file is also posted in the Magazine Library of the VBPJ Forum 
on CompuServe. DevX Premier Club members ($20 for six months) can get each article's listings and 
associated Fdes in a separate file, plus archives of all code ever published in Getting Started with Visual 
Basic, Visual Basic Programmer's Journal Java Pro, and Microsoft Interactive Developer magazines (for 
details, see "Get Extra Code in DevX's Premier Club," also in the Table of Contents). 

INQUIRY.COM 
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ideas. Read answers from our crack VB pros on the Web at http://ww.inquiry.com/thevbpro. You can 
submit your questions, tips, or ideas on the site, or access a comprehensive database of previously 
answered questions. 

VBPJ FORUM ON COMPUSERVE 

Typing GO WINDX using WinCIM will bring you to the VBPJ Forum on CompuServe, where you can post 
questions about Visual Basic programming and get them answered by expert section leaders as well as 
other members of the VB community. You can also post messages for our customer service representa- 
tives, our conference staff, and the editors of Getting Started with Visual Basic and Visual Basic 
Programmer's Journal. Code listings that accompany articles in Getting Started with Visual Basic and 
VBPJ are available for download in the Magazine Library. 
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The Java Zone: 
www. java-zone. com 



The Enterprise Zone: 
www. enterprise-zone, com 



e VB Zone: 
www.vb-zone.com 



The C++ Zone: 
www.cplus-zone.cor 



Each DevX Zone 
is a Web site, 
targeting your 
specific informa- 
tion needs for 
techniques and 
tools, from VB to 
Java, from C++ 
to SQL. 



ramming informatii 



IOW? 



It's all here on 
The Development 
Exchange (DevX) 

DevX's family of Web sites is your 
most comprehensive source for 
programming information available. 

Get immediate access to essential 
tools, code, and resources aimed at 
helping you solve your toughest 
programming challenges. And now, 
whether you're undertaking intranet 
solutions with Java, end-user appli- 
cations with VB, or ISV products 
with C++, you're just a click away 



from the right tool in one of DevX's 
four development zones. 

• Technical articles and code from 
Visual Basic Programmer's Journal, 
Microsoft Interactive Developer, and 
Java'Vro magazines 

• Daily programming tips — plus a 
library of thousands more 

• Ask the Pros — get answers to 
tough development questions 

• Product Reviews — hundreds of 
reviews updated weekly 

• Forums — dedicated to 
development 



• 40% off Books of the Week— plus 
editors' picks and reviews of top 
programming titles 

• Search Products — from our 
database of over 5,000 program- 
ming tools 

• Conference updates — register 
online 

And that's just the beginning. 




The Development Exchange 



Explore the rest yourself at 

www.windx.com 
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Is Visual Basic 
Enough? 



EDITOR'S NOTE 






JEFF HADFIELD 



VB takes you from where 
you are to where you want 
to be. 



I recently asked a senior 
Microsoft manager to an- 
swer a question I hear from 
VB programmers: What's 
the next language I should 
learn to advance my ca- 
reer and hone my capa- 
bilities? The manager re- 
sponded, "Why learn anything but Visual Basic?" 

He explained: There are three and a half mil- 
lion Visual Basic programmers already. VB's 
groundbreaking ease-of-use and comprehensive 
capabilities mean that if you want to make your 
Windows app do a certain something — any cer- 
tain something — odds are, you can do it in VB. 
VB's now the style setter, the goal to reach, for 
integrated development environments and flat- 
out programmer productivity. Microsoft admits 
it's striving to bring its other development tools 
in line with VB's ease-of-use, from Visual InterDev's 
Web site creation to Visual C++'s power and control. 

The bottom line, for this manager, is that VB 
works with every major Microsoft technology, 
plus other technologies. As he puts it, "VB takes 
you from where you are to where you want to be." 
(To read the full text of this interview with 
Microsoft VP Paul Gross and Microsoft's Michael 
Risse, who's quoted here, visit the VB Zone on 
The Development Exchange, at http://www. 
vb-zone.com.) 

Their advice to you is simple. In fact, you've 
already taken the first step by picking up this 
magazine: learn Visual Basic. Your next step? 
Don't mess around learning another language. 
Your VB skills, as you develop them, will serve 
you in good stead for just about any project, even 
multitier applications. 

What they suggest — and it's good advice 
whether or not you choose to learn another lan- 
guage — is that you understand both fundamentals 
and key technologies. What fundamentals are im- 
portant? Well, all of them, really. But the most 
important thing to understand is how to build your 
applications correctly: how to build a sound archi- 



tecture for your apps or components. Where can 
you learn this? You'll find some suggestions in this 
magazine, and regular coverage of architecture 
issues in Visual Basic Programmer's Journal as well. 
You might also want to try books such as Informa- 
tion Architecture for the World Wide Web (Rosenfeld 
and Morville, O'Reilly & Associates, ISBN: 1-56592- 
282-4) or Software ProjectSurvival Guide (McConnell, 
Microsoft Press, ISBN: 1-572-31-621-7). 

Building your apps on a solid foundation, like 
the proverbial house built upon a rock, will serve 
you well. While you're focusing on these timeless 
principles of software design, don't overlook timely 
issues — key technologies and innovations. If 



Getting Started with 
Visual Basic is your 
magazine. What 
information would 
you like to see in 
future issues? What 
articles did you like 
best in this issue? Tell 
me what you think: 
e-mail me at ednote© 
fawcette.com. 



you're working in 
a networked envi- 
ronment (these 
days, who isn't?), 
you'll want a solid 
grasp of Windows 
NT4, Windows 
NT5, Internet In- 
formation Server, 
and key technolo- 
gies such as Active 
Directory Services . 

Especially if 
you've bought Vi- 
sual Studio rather than the standalone version of 
Visual Basic, you've picked up a range of tools 
that augment what you can do with VB. Me? I'd 
start with Visual InterDev. DHTML (Dynamic 
Hypertext Markup Language) is all the rage in 
thin, flexible client user interfaces. And it shows 
no signs of being just a flash in the pan. 

This magazine is a great place to start. In this 
issue, you'll learn the basics of Visual Basic for 
Applications (VBA) .which gives you a way to take 
advantage of the abilities built into other applica- 
tions. Among other things, you'll even learn what 
goodies Microsoft has squirreled away in the VB 
box and on its Web site that can help you work 
faster and smarter. And isn't that why you're 
trying Visual Basic in the first place? 3fl 
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Discover VB's Hidden 



Treasures 



Build a simple word 
processor with this 
guide to the free odd- 
itis, controls, libraries, 
and components 
available from 
Microsoft. 



You might think the typical instal- 
lation of Visual Basic 5.0 is com- 
prehensive, but what you see is 
only a fraction of the treasure 
trove of tools waiting for you. The VB CD- 
ROM and the Visual Studio Owners' Area 
(http://www.microsoft.com/vstudio/ 
owner/default.asp) also offer tens of mega- 
bytes of helpful samples, controls, and 
libraries to augment your applications. 

The best part? It's all free — as long as 
you own VB5 and register in Microsoft's 

Francesco Balena is editor and publisher of 
Visual Basic Journal, the Italian licensee of 
VBPJ, and cofounder of Software Design, a 
software firm specializing in VB and VC++ 
add-ons, training, and consulting. He has 
used Basic for 15 years; has written several 
books in Italian on DOS, QuickBasic, and 
VB; and is coauthor of Platinum Edition 
Using Visual Basic 5 (Que). Contact 
Francesco at fbalena@infomedia. it. 



Owners' Area. Microsoft's Web site offers 
so many interesting things that you prob- 
ably don't have the time to download, 
install, and test everything. I can't save 
you the download and install time, but I 
can give you a quick-and-dirty guide to 
many of the highlights on the Web site 
(see the sidebar, "Did Someone Say Free 
Stuff?") and the CD (see the sidebar, "CD 
Includes Much More than Setup Files"). 
You'll be surprised to learn that much of 



■rancesco balena 



the functionality allegedly missing from 
VB is already there (see the sidebar, "Oh, 
So VB Can Do This"). 

Finding all these tools is nice, but 
what's nicer is putting them to good use. 
To that end, I'll show you how to create a 
simple word processor that takes advan- 
tage of several free tools. WordPad is fine 
as far as it goes, but I've often wished it 
would let me open more than one docu- 
ment at a time. So, I took a handful of the 




[[CJ] If you hichkoht d ouble-click fefrthe name of a form in the Protect Esplorer window and click J 
th e Proj e ct window's View Form button , the focus will shift to the window that appears toward the', 
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Figure 1 . Put VB's Secret Tools to Work. VB offers more than what you see on the 

screen after you install it. You can find tens of megabytes of controls, add-ins, and sample 
apps on tlie CD-ROM and on the Owners 'Area of Microsoft's Web site. This article tells you 
what's available, where to find it, and what you can do with it. It also shows you how to 
build a simple, MDl-based text editor with customizable menus. 
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tools I discuss in this article and created 
RTFDemo, a simple word processor that 
works in multiple document interface 
(MDI) mode (see Figure 1). For good mea- 
sure, I also added Explorer-style "coolbar" 
menus to the application. Coolbar menus 
are flat by default, but take on a 3-D ap- 
pearance when you pass a mouse over 
them. These menus give your apps a sleek 
and modern appearance. 

A good place to start when creating 
any application is the Application Wiz- 
ard . The AppWizard add-in isn't exactly a 
CASE tool, but it's useful when you want 
to start a new application from scratch. 
This handy add-in is much improved and 
now generates better code, supports 
customizable menus and toolbars, and is 
integrated with a newer version of the 
Data Form Wizard. You can download it 
from the VB's Owners' Area. 

The improved AppWizard makes it 
child's play to write the framework of the 
word processor. You simply specify that 
you're creating an MDI program, then 
select the menus you want to add to the 
application. Next, accept all the stan- 
dard menus offered by the Wizard, ex- 
cept for the View and Tools menus. The 
word-processing application needs ad- 
ditional top-level menus, but you can 
create them later, using the standard 
Menu Editor. Now, you must decide which 
buttons should make up the standard 
toolbar. Some obvious choices for a word 
processor include New, Open, Save, Print, 
Copy, Cut, Paste, Bold, Italic, Underline, 
Left Align, Right Align, and Center (see 
Figure 2). 

The new AppWizard also lets you se- 



RTFDemo 




Pmitt: 
sull'org 



ipi C:\Autoexec.bat 




rem ■ By Windows Setup • C:\WINDOWS\CQMMAND\MSCDEX.EXE /D:TEAC-CDI 
/M:15 

mode con codepage piepaie=[(850] C:\WINDOWS\COMMAND\ega.cpi) 

mode con codepage select=850 

keyb it..CAWINDOWS\COMMAND\keyboard sys 



Figure 2. Write an MDI Version ofWordPad. One shortcoming of WordPad is that it allows 
you to have only one document open at a time. You can overcome this limitation by employing 
the improved Application Wizard and a RichTextBox control. This article includes the full 
source for RTFDemo, so you can extend it if you need additional functionality. 
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Figure 3. Enter the Band's Properties. This property page lets 
you set the many properties of the bands that comprise a Coolbar 
control, including size, color, and name of the contained control. 



lect any additional 
forms required by the 
application. RTFDemo 
doesn't need a Splash, 
Option, or Data Entry 
form, so a simple 
AboutBox form will 
suffice. Assign "RTF- 
Demo" as the project 
name and click on the 
Finish button in the 
wizard's last step. This causes the wizard 
to generate the program right before your 
eyes . All you have to do 
is sit back and watch — 
an exciting experience 
for any programmer ac- 
customed to writing 
and testing each line of 
code in his or her appli- 
cations. 



IRON OUT THE KINKS 

The wizard creates an 
MDI application whose 
child form hosts a 
RichTextBox control. In 
other words, it creates 
a simple — but func- 
tional — word proces- 
sor. Well, mostly. The 
Application Wizard 
leaves a few sections 
marked with "TODO." 
These remarks draw 
your attention to the 
routines that need 
some manual refine- 
ment. However, the 
code the wizard gener- 



osting a toolbar in a 
coolbar is a difficult 
process. 



ates isn't ready for commercial-quality ap- 
plications, and you must fix the code manu- 
ally in several places. Use it anyway, be- 
cause the wizard still gives you a good 
head-start on writing an application. 

RTFDemo's first problem shows itself 
when you write something in the docu- 
ment and close the child form. You expect 
the program to save the new contents, 
but nothing happens. The form unloads 
and its contents are lost forever. Need- 
less to say, this is unacceptable in a real- 
world application. 

You can correct this behavior by de- 
fining a flag that keeps the saved/unsaved 
state for each MDI child form. In VB3 you 
stored this flag in an array managed by 
the main form. The object orientation of 
VB4 and VB5 forms lets you define a Pub- 
lic variable right in the child form: 

' in the declaration section 
' of the frmDocument form 
Public IsDirty As Boolean 

Be sure to set the IsDirty variable to 
True in the Change event of the Rich- 
TextBox control on the frmDocument 
form, then change it to False whenever 



http://www.windx.com 



Started with Visual Basic SUMMER 1998 9 



Did Someone Say Free Stuff? 



Free VB5 Extensions 



you save the control's contents to disk: 

' somewhere in the main MDI parent 
' form 

Act i ve Form. rtf Text .SaveFile sFile 
Acti veForm. IsDi rty - False 

Finally, test the IsDirty variable in the 
frmDocument's QueryUnload event and 
show a message box if the form being 
unloaded hasn't been saved yet. 

Unfortunately, the code generated by 
the wizard fails to keep the state of the 
toolbar buttons in sync with the text at- 
tributes currently selected in the 
RichTextBox control. For example, the 
wizard generates this code in the 
frmDocument form: 

Private Sub rtfText_Sel Change( ) 
fMainForm.tbToolBar.Buttonst _ 
"Bold"). Value - _ 
IIf(rtfText.SelBold. _ 
tbrPressed, tbrllnpressed) 
' similar code for other 
' attributes 

End Sub 



T 



he improved 
AppWizard 
comes in 
handy when 
you want to 
start a new 
application 
from scratch. 



The RichTextBox control's SelBold 
property returns Null when the current 
selection includes both normal and bold 
text. This also happens for similar prop- 
erties exposed by the control, such as 
italic or underline. The wizard's code 
doesn't take this case into account, so 
the button doesn't reflect the attributes 
of the selected text. Fixing this code 
isn't difficult: 

TEXT CONTINUCD ON PACC 13. 



Microsoft's Web site is the place to go 
for cool free stuff for VB5. Most of these 
goodies are in the Owners' Area, so 
you'll need to register with your name 
and product ID to download them. With 
so many tools available, no working 
programmer will have time to down- 
load and try them all. What follows is a 
list of some of the more interesting 
examples, broken down by category. 

ADD-INS 

The visual Resource Editor lets VB 
programmers include resource files 
(see Figure A). Creating, updating, and 
compiling RES files without a decent 
resource editor is like editing VB source 
code using Notepad. This add-in en- 
ables you to insert, edit, and delete all 
the strings used by your application, 
as well as store them in a single place. 
This is convenient, especially if you're 
going to localize programs to another 
language. Using the Resource Editor, 
you only have to create additional 
string tables— one for each language 
you want to support — and add some 
code that lets the user select the lan- 
guage at startup. The Resource Editor 
also supports pictures, icons, cursors, 
and raw binary data, but it doesn't 
offer an internal editor for resources 
of these types. 

The Visual Component Manager is 
another welcome addition to the VB 
programmer's arsenal. This tool allows 
you to store in one place all your code 
snippets, routines, forms, modules, 
wizards, ActiveX controls, docu- 
ments — in a word, anything — that you 
can add to a VB project. It supports 
both Jet (MDB) or SQL Server data- 
bases. Microsoft developers created 
this add-in with programming teams in 
mind, but you'll find it useful even if 
you work alone. 

The Web site also includes a few 
updates to the add-ins that shipped 
with VB. For example, the Template 
Manager lets you add code routines, 
menus, and groups of controls to your 
current form or module with a few 
mouse clicks. It also comes with some 
interesting predefined menus and con- 
trol groups, including a pair of list 
boxes that work in a mutually exclu- 
sive fashion. 

The Application Wizard has been 
greatly improved. It's more tightly in- 
tegrated with the revamped Data Form 
Wizard, which now lets you automati- 



and queries and gives you the choice of 
using the Data control or DAO code to 
bind database fields to the onscreen 
controls. It also lets you create record 
and master-detail forms. It would be 
perfect if the tool allowed you to select 
which type of control to use for each 
database field, so you could take advan- 
tage of specialized controls such as 
DBCombo, DBGrid, MaskEdBox, and 
even third-party controls. 

The Class Builder Utility has been 
purged of its earlier bugs and now sup- 
ports Enum declarations and Optional 
arguments. I highly recommend this util- 
ity if you use objects with complex class 
hierarchies. Its lone drawback is that it 
can't create custom code. You must 
modify the listings it generates by hand 
if you want to change something. 

The Web site also includes some great 
source code you can analyze for creat- 
ing your own add-ins. For example, the 
Event Spy keeps a log of all the internal 
events the VB IDE raises. It's also a good 
debugging tool for experienced add-in 
programmers, but of little or no use to 
regular VB developers. Handier is the 
Immediate Wiper, which adds a menu 
command that lets you clear the con- 
tents of the Immediate window. Finally, 
advanced VB developers might appre- 
ciate the Active Document Debugger, 
which helps you test your UserDoc- 
ument modules within containers such 
as Microsoft's Internet Explorer and 
Office Binder. 

ACTIVEX CONTROLS 

You can create ActiveX controls with 
VB, but you won't find many examples of 
how to do this in the original documen- 
tation. Microsoft's Web site makes up for 
this to a degree. For example, the 
WebBttns project includes the source 
code for a couple of nice 3-D variations 
of the standard buttons you can reuse in 
your apps and modify to derive even 
more unusual shapes. The LED ActiveX 
control lets you create a more modern 
display for your numerical data. You'll 
probably like the Dial custom control if 
you're fond of old-style radios. The con- 
trol adds big round knobs to your forms 
that a user can operate with a mouse. 
The dials aren't nearly as handy as lin- 
ear slide cursors, but they add a touch of 
fun to the right user interface. 

The System Color Control displays the 
list of system colors and lets you select one 
of them. This tool is more than a useful 
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shows you how to create cus- 
tom list boxes using a picture 
box and a scrollbar. The Direc- 
tory Walker ActiveX control is 
an invisible control that can 
also be used as an OLE server 
and instantiated with a 
CreateObject command. It 
shows how to recursively 
search a file in a directory tree, 
as well as how to work around 
a couple problems you might 
encounter in the process. 

You'll probably welcome 
the Da ta Tree ActiveX control 
if you frequently create pro- 
grams that manage database 
structures. This control dis- 
plays the internal structure of 
a Jet MDB file in a hierarchi- 
cal fashion, including all 
tables, queries, indices, fields, 
and properties. The control is 
completely self-sufficient, which means 
that it supports a popup menu with all the 
possible commands, such as OpenData- 
base, Refresh, and so on. All you need to 
do is drop it on a form. You can edit the 
properties of tables and fields, but the 
control doesn't let you modify the struc- 
ture of the database. 

The Soft Button ActiveX control 
(SoftBttn.vbp) borrows a trick from 
Internet Explorer: It simulates a flat but- 
ton that magically raises and becomes 3- 
D when the mouse passes over it. It also 
includes a URLPicture property for asyn- 
chronous download of a picture from 
the Internet. This control remains too 
primitive for most commercial applica- 
tions — it doesn't support distinct pic- 
ture properties for up, down, and dis- 
abled states — but it's a good starting 
point for building your own power- 
packed replacement of standard push 
buttons. If you want to create a real 
"flat" toolbar, however, you're better 
off using the Coolbar control (see the 
main article for more information). 

CLASSES, OBJECT LIBRARIES, AND 
CODE SAMPLES 

A stunning quantity of great program- 
ming samples is available on the 
Microsoft Web site. On far too many 
occasions I've worked hard to create a 
class, only to find out later that someone 
else had already done the work for me. 
I've learned my lesson the hard way — I 
now check the Owners' Area regularly, 
particularly when I'm about to start a 
complex VB project. 
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Figure A. Ready for the Global Market? Short of an automatic translation system, having 
multiple resource string tables is the next best tool for programmers and software companies who 
want to make money abroad. 



The CodeFlow Library is a little jewel. 
It consists of classes with many interest- 
ing features. It includes a code-only timer, 
a Shell command replacement that op- 
tionally waits for the shelled process to 
complete, a Sleep command that lets you 
insert precise pauses in your apps, and 
code to call a routine after a given time- 
out automatically. The last feature is 
essential for building sophisticated out- 
of-process components that call back the 
client when a task has been completed. 

RegObj.Dll is a useful library that 
expands the limited Registry functions 
of VB. It adds the ability to access any 
key or value in the local system Registry 
and even enables you to connect to the 
Registry of a remote machine. It includes 
a detailed document explaining how to 
use the DLL, but no source code. 

The HotTrack project is a group of 
modules and classes that shows you how 
to implement "hot tracking," a Windows 
feature heavily exploited in the new Ac- 
tive Desktop. The feature lets you activate 
a window, field, or button by hovering the 
mouse over it. PrnTool is a collection of 
classes and modules that shows pictures 
with interesting graphic effects, while 
Puzzle demonstrates how to program 
simple games in Visual Basic. Finally, 
AbSplash.Frm is a reusable form that can 
work both as an About dialog and a splash 
screen with a programmable delay. 

Not all the code samples are there to 
help beginners. The ICtxMenu and IObjSaf 
samples are strictly for Component Ob- 
ject Model (COM) whizzes. Be forewarned: 
these samples are pure black-belt pro- 



gra mining. Fortunately, these DLLs also 
come in compiled form, so you don't 
have to understand their inner work- 
ings to use them. ICtxMenu shows how 
to add custom functionality to the Win- 
dows Explorer, while IObjSaf DLL lets 
you implement the IObjectSafety in- 
terface, which is necessary if you write 
ActiveX controls that are only par- 
tially safe for scripting or initializa- 
tion. For a simpler example, look at the 
PropPick project, which allows you to 
show standard Color and Picture prop- 
erty pages at run time — not normally 
possible in VB. 

MISCELLANEOUS 

A few files defy categorization. For ex- 
ample, you'll find an update to the 
Win32Api.txt file used by the API 
Viewer add-in that contains the decla- 
rations of API functions. The original 
file contained a few errors, which have 
been corrected in this version. The 
FixBar.exe add-in fixes a bug of the VB 
IDE in single document interface (SDf) 
mode, whose code windows tend to 
lose the input focus when the user se- 
lects a menu item. 

The Code Sample section also in- 
cludes some interesting routines that 
demonstrate how to create multime- 
dia VB programs to read joystick in- 
put, drive a CD player, and output to 
a MIDI device. Finally, you can down- 
load an interesting text file that ex- 
plains everything you always wanted 
to know about version compatibility, 
but never dared to ask. 
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Most programmers never take a sec- 
ond look at the VB5 CD-ROM after run- 
ning the setup procedure. This is a 
shame, because the CD contains many 
megabytes of useful and interesting 
software that aren't installed unless 
you copy them manually from the 
\Tools directory of the CD onto your 
hard disk. A few programs are new, 
while others are updates from Visual 
Basic 4.0. This list gives you 
a hint of what you might be 
missing. 

For example, the CD in- 
cludes interesting utilities 
such as the Image Editor, 
which allows you to create 
and edit bitmaps, icons, and 
cursors. The tool has a few 
limitations when working 
with bitmaps, such as a maxi- 
mum of 16 colors and a 255- 
by-255-pixel size, but it 
proves immensely useful for 
dealing with icons and cur- 
sors. Similarly, the Help Com- 
piler Workshop is an all-in- 
one solution for building help 
files and linking them to your 
VB applications. Microsoft 
updated the tool to support 
Word 97 RTF files in VB5. 

The License Package 
Authoring Tool (LPK Tool) 
generates an LPK license 
file for the ActiveX controls 
that reside on an HTML page 
and require a design-time 
license to work properly. Finally, the 
Resource Compiler isn't new — 
Microsoft also included it with VB4 — 
but it isn't good for much, either. This 
MS-DOS program is no fun to use, and 
you won't notice its absence if you 
install the visual Resource Editor in- 
stead (see the sidebar, "Did Someone 
Say Free Stuff?"). 

The CD also includes a handful of 
registration utilities that let you install 
ActiveX controls and components with- 
out having to edit the system Registry 
manually. RegSvr32 registers an in- 
process (DLL) or out-process (EXE) com- 
ponent, whereas RegOcx32 registers 
OCX controls. REdit is similar to 
RegSvr32, but it accepts wildcards and 
permits you to register more compo- 
nents in a single operation. 

The CD doesn't shortchange you in 
the samples department, either. My 
favorite sample project is the ActiveX 
control, which shows a number of ad- 



vanced techniques for reducing flicker 
in typical graphics applications, not just 
ActiveX controls (see Figure B). Win- 
dows diehards will love the SysTray 
Control, which lets you add an icon in 
the System Tray Area and react to mouse 
clicks on it. VB programmers eager to 
build their own screen savers will find 
that the Screen Saver sample applica- 
tion answers all their needs. Plus, the 
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Figure B. VB Does Have a Calendar Control. This ActiveX 
control exploits a few advanced techniques for smart flicker-free 
redrawing and automatically adapts itself to different locales as 
well. (Here is the control when run on an Italian system.) 



sample apps offer an interesting assort- 
ment of animated sprites. 

The TabOrder sample remedies the 
inability of VB's Integrated Development 
Environment (IDE) to visually set the 
TabOrder property of controls. This is a 
great example of a VB5 add-in. The Code 
Profiler, another great add-in, gives you 
a picture of the bottlenecks in your apps, 
allowing you to focus your optimization 
efforts where the VB code actually spends 
the most time. The Upgrade Wizard is 
an unsupported tool that helps VB3 and 
VB4/16 programmers who want to mi- 
grate their apps to the 32-bit world. 

Internet lovers will appreciate the 
complete Microsoft OLE Messaging Li- 
brary. This library extends the Mes- 
saging Application Programming In- 
terface (MAPI), allowing you to add 
support for e-mail messages and ad- 
dress books to any VB program. HTTP 
Explorer builds on the WebBrowser 
control to deliver an Internet Explorer 



clone that also creates a map of an 
entire Web site. The extraordinary 
Internet Voice Chat application lets 
you to talk to several people at once. 
It even comes with source code, so 
you can extend it at will. 

The CD also includes tools for the 
client/server developer. The Connec- 
tion Manager enables you to install 
and register remote components, and 
Microsoft has updated the 
tool with support for Distrib- 
uted COM (DCOM)— the VB4 
version of the tool supported 
only Remote OLE Automa- 
tion. The Application Per- 
formance Explorer (APE) al- 
lows you to test the design 
and the deployment of local 
and remote components, run 
automated simulations and 
"what-if" scenarios, and 
gather timing results. 

The Transact SQL 
Debugger is a useful add-in 
for debugging a SQL Server 
stored procedure. You can 
use it remotely from within 
VB, and you can also single- 
step it, set breakpoints, view 
variables and the stack infor- 
mation, and more. This is the 
most useful tool on the CD, at 
least from the client/server 
programmer's point of view. 
Only slightly less helpful is 
the Visual Database Tools 
collection, which you can 
invoke from within VB to create SQL 
Servertablesand queries using the same 
Rapid Application Development ap- 
proach you take when creating VB forms 
or Access databases. ODBC Spy creates 
a log of all the ODBC calls produced by 
your application, helping you spot and 
eliminate problems. 

Finally, the CD includes several 
handy tools for advanced Windows 
and OLE programmers. SpyXX shows a 
live list of all windows, active pro- 
cesses, and threads, as well as their 
properties. Similarly, PSpy can lend a 
helping hand if you're experiencing 
problems with DLLs. The tool shows 
DLL versions, where they're loaded, 
and more. PView is another spy rou- 
tine that lets you peek at all running 
processes. It also lets you terminate 
them, if necessary. You can find addi- 
tional utilities for OLE programmers, 
including alternative OLE Object 
browsers, in the \OLETools directory. 
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Figure 4. Customize from the Toolbar. The new version of the Application Wizard 
supports customizable menus and toolbars, as well as single-record and master-detail data 
forms that bind to a database using the Data control or plain VB code. 



T£XT CONTINUED FROM PAG[ 10. 

If IsNull (rtf Text. Sel Bold) Then 
fMai nForm. tbTool Bar . Buttonst _ 
"Bold") .MixedState - True 

Else 

fMainForm.tbToolBar. Buttonst _ 
"Bold") .MixedState - False 

fMai nForm. tbTool Bar. Buttonst 
"Bold"). Value - _ 
IIf(rtfText. SelBold. _ 
tbrPressed, tbrUnpressed) 

End If 

The code generated by the wizard in- 
cludes several other flaws as well. The 
project source code highlights these ex- 
amples and shows you how to correct 
them. You can acquire the complete 
source of the RTFDemo app from the free, 
Registered Level of The Development Ex- 
change (see the Code Online box for de- 
tails). Unfortunately, you can't modify the 
internal template of the code delivered by 
the Application Wizard, so you must fix 
the code manually each time you run the 
wizard. It's a nuisance, but it's still better 
than writing all the code from scratch. 



VB5 



Private Sub mnuFormatFont_Cl i ck( ) 
Const CF_N0VERTF0NTS - &H400000 
Dim rtf As RichTextBox 

On Error Resume Next 

Set rtf - Acti veForm. rtfText 

' exit if no such control on active form 

If Err Then Exit Sub 

With dl gCommonDi al og 
. Cancel Error - True 

.Flags - cdlCFBoth Or cdlCFEffects Or _ 

CF_N0VERTF0NTS 
If IsNull (rtf .Sel FontName) Then 

.Flags - .Flags Or cdl CFNoFaceSel 
Else 

.FontName - rtf .Sel FontName 
End If 

If IsNull(rtf.SelFontSize) Then 

.Flags - .Flags Or cdl CFNoSi zeSel 
Else 

.FontSize - rtf . Sel FontSi ze 
End If 

If IsNull (rtf .SelBold) Or IsNul 1 ( rtf . Sel I tal i c ) 
Then 

.Flags - .Flags Or cdl CFNoStyl eSel 

Else 



.FontBold - rtf. SelBold 
.Fontltalic - rtf . Sel Ital i c 
End If 

If Not IsNull (rtf .SelUnderline) Then 
. Fonttlnderl i ne - rtf . Sel Underl i ne 
End If 

If Not IsNull(rtf.SelStrikeThru) Then 
.FontStrikethru - rtf . Sel Stri keThru 
End If 

If Not IsNull (rtf .SelColor) Then 

.Color - rtf. SelColor 
End If 
. ShowFont 
If Err - Then 

If .FontName <> "" Then 

rtf .Sel FontName - .FontName 

End If 

If (.Flags And cdl CFNoStyl eSel ) - Then 
rtf. SelBold - .FontBold 
rtf.Selltalic - .Fontltalic 

End If 

If (.Flags And cdl CFNoSi zeSel ) - Then 

rtf .Sel FontSize - .FontSize 
End If 

rtf .Sel Underl ine - . FontUnderl i ne 
rtf .SelStrikeThru - .FontStrikethru 
rtf. SelColor - .Color 
End If 
End With 
End Sub 



Listing 1 . Set Font Properties. This is probably more code than you anticipated, but it's the only way to account for all possible 
attributes of the highlighted text in a RichTextBox control. Note the CF_NO VER TFONTS constant, which doesn't correspond to any 
documented cdlCFxxxx intrinsic constant. 
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Developers often complain about fea- 
tures or capabilities VB lacks. A quick 
perusal of the CD or the Owners' Area 
can satisfy many of these complaints. 
This list covers some of the more 
significant or most frequently voiced 
complaints. 

Visual Basic badly needs a visual 
Resource Editor. 

You have one. Look up the Resource 
Editor add-in on the Owners' Area. 

There is no way to quickly store and 
retrieve controls and code snippets. 
Wrong again! You have at least two 
tools for doing this: the Template 
Manager that comes with VB and a 
more powerful Visual Component 
Manager that lets you reuse controls, 
modules, and routines, as well as 
share them with other developers in 
your team. 

Microsoft should provide a coolbar 
control for building Internet Explorer- 
like programs. 

It did — the Coolbar control tackles the 
job nicely. You can also find the 







Oh, So VB Can Do This 



SoftButtons control, which helps you 
implement the distinctive "flat" style of 
Internet Explorer and other recent 
Microsoft apps. 

You can 't invoke another program and 
wait for its termination. 
The Shell command works asynchro- 
nously and benefits from the 
multitasking feature of 32-bit operating 
systems. One of the most popular tips 
among VB developers shows how you 
can use Shell in a synchronous mode. 
Now you can also use the routines found 
in the CodeFlow library. 

The VBA Registry commands aren't 
powerful or versatile enough. 
If you need to have full control over your 
Registry or even a remote machine's 
Registry, install the RegObj.dll library 
and use the methods it exposes. 

The API Viewer utility contains a lot of 
bugs. 

The TXT file that comes with the API 
Viewer is buggy, not the utility itself. Use 
the newer version available from 
Microsoft's Web site. 





ADD A COOLBAR TO THE APP 

One of the most distinctive traits of re- 
cent Microsoft applications, including 
VB5 itself, is the "flat" toolbars (also 
known as coolbars) made popular by 
Internet Explorer 3.0 and higher. 
Microsoft recently released a Coolbar 



as "Microsoft Windows Common Con- 
trols-3 5.0 (SP2)." You have to install this 
control to update your word processor 
with a modern, flat appearance. 

When you place a Coolbar control on a 
form, you see two rows of bands. You can 
place only one control on each band, but 



t's harder than you think to show a 
Common Dialog control that lets 
the user set the font properties of 
characters highlighted in a 
RichTextBox control. 



control that lets VB developers update 
their apps with flat toolbars. This con- 
trol is available from the Owners' Area of 
Microsoft's Web site. The control is em- 
bedded in the COMCT332.ocx file and 
appears in the Components dialog box 



you can remove and add as many bands as 
you want. Bands can be of fixed or variable 
size, and you can freely drag bands at run 
time from one row to another. Use the 
Bands property page to set many design- 
time properties, including which control 



Why doesn't VB have a Calendar 
control? 

You'll find a pretty good Calendar 
control on the VB CD-ROM, but few 
programmers know about it. 

Setting the TabOrder property of all 
controls on a form is a waste of time. 
Yes, it used to be. Try installing the 
TabOrder add-in that comes on the 
VBCD. 

I'd like to write a screen saver, but I 
can 't find any good documentation 
for doing so in VB. 
You can find more than plain docu- 
mentation hidden on the VB CD — you 
can also get a complete VB project for 
building a screen saver from the 
ground up. 

/ don't want to spend additional 
money for a third-party install proce- 
dure, but the Setup Wizard is too 
buggy. 

That's a matter of opinion. Try down- 
loading the Setup Wizard's most re- 
cent update from the Microsoft Web 
site before you make a final decision. 



to contain in the band (see Figure 3). 

You can also set which controls go in 
the band by writing code you put in the 
MDIForm_Load event. For example, the 
word processor includes two combo boxes 
for interactively changing the font's name 
and size of the text currently highlighted. 
You can make these combo boxes appear 
in the Coolbar control with this code: 

' change the combo boxes' container 
Set cboFonts . Contai ner - CoolBarl 
Set cboSize. Container - CoolBarl 
' select the parent band for each 
' one 

Set CoolBarl. Bands(2). Child - _ 
cboFonts 

Set CoolBarl. BandsO). Child = cboSize 

Hosting the toolbar into the coolbar is a 
more difficult process, however. The cur- 
rent version of the Coolbar control doesn't 
automatically support the "flat" style for 
any button you place on it. So, Microsoft 
augmented the Coolbar control with a com- 
panion TransTBWrapper control. Microsoft 
gives you this control in source code for- 
mat, andyoumustadd it as a private ActiveX 
control to any application that uses a 
Toolbar control hosted in a Coolbar con- 
trol. Using the TransTBWrapper control 
isn't intuitive, but you can find a strong 
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sample that shows you how on — you 
guessed it — the Owners' Area. You make 
the TransTBWrapper control a child of the 
Coolbar control, then assign the toolbar to 
the Toolbar property of the Trans- 
TBWrapper control: 

' Move the Wrapper control in 

' the Coolbar band 

Set TransTBWrapperl. Container = _ 

CoolBarl 
Set CoolBarl. Bands(l). Child - _ 

TransTBWrapperl 
' put the toolbar into the tb wrapper 
Set TransTBWrapperl. Toolbar - _ 

tbTool Bar 

This code is all you need to create flat 
toolbars within your Coolbar controls (see 
Figure 4). Note that you must reset the 
Toolbars to Nothing before the parent 
form unloads. Do this in the MDI- 
Form_Unload event: 

Set TransTBWrapperl .Tool bar - Nothing 

Your app will GPF if you omit this step. 
Don't use the End statement, because this 
prevents the Unload event from execut- 



T 



he code the AppWizard 
generates isn't ready for 
commercial-quality applications. 



ing. And, you can't stop execution using 
the Run menu's End command or the End 
button on the standard VB5 toolbar. These 
commands have the same effect as an End 
statement. Instead, always terminate the 
program under development by unload- 
ing the main form — and remember to save 
all code frequently. 

Your useful, cool-looking word pro- 
cessor application is now nearly com- 
plete. Your next step is to add code for 
managing the Format menu's Font com- 
mand. It's harder than you think to show 
a Common Dialog control that lets the 
user set the font properties of characters 
highlighted in a RichTextBox control (see 



VB5 

Private Sub Fi 1 1 FontSi zeCombo( ) 

Dim saveName As String, saveSize As Single 
Dim sizes As Variant, 1 As Integer 

' save the font properties of the combo itself 
saveName - cboSi ze . Font . Name 
saveSize - cboSize. Font. Size 

' these are the sizes that we will try out 
sizes - Array(6, 7, 8, 9, 10, 11, 12, 14, 16, 18, 

20. 22. 24. 26. 28. 36. 48. 72) 
' create a font with given name 
cboSize. Clear 

cboSize. FontName - cboFonts .Text 

' next, try all sizes in the array 
On Error Resume Next 
For i - LBound(sizes) To UBoundCsi zes ) 

' the simpler way to learn if a given font 
' size is supported is making the assignment and 
' then checking if it was successful 
cboSize. FontSize - CInttsi zes( i ) ) 
If cboSize. FontSize - CInt ( si zes ( i ) ) Then 

cboSize. Addltem sizes(i) 
End If 
Next 

' restore original font attributes 
cboSi ze. FontName - saveName 
cboSize. FontSize - saveSize 
End Sub 



Listing 2. Retrieve the List of Valid Font Sizes. This code fills the cboSize combo box 
with a list of valid character sizes, related to the font whose name is currently in the 
cboFont's Text property. You must provide an initial list of sizes to test; otherwise, this code 
will fail with TrueType fonts, which support any character size. 



Listing 1). For example, you can't blindly 
initialize the Common Dialog's properties 
using the Sebr;oor properties of the 
RichTextBoxcontrol, because these prop- 
erties return Null if the selection spans 
characters with different attributes. 

You also need to write the code that 
correctly fills the two combo boxes on the 
Coolbar control. Filling the cboFonts con- 
trol with the list of available fonts is trivial: 

For i - To Screen . FontCount - 1 

cboFonts . Addltem Screen . Fonts( i ) 
Next 

Filling the cboSize combo box with the 
character sizes provided by the current 
font is a bit trickier (see Listing 2). You 
can't simply assign a size to the current 
font and test the Err object, because in- 
valid sizes don't raise an error. 

You can learn a few additional tricks 
by browsing the source code, but you'll 
learn more by expanding the word 
processor's features on your own. For 
example, you might give it the power to 
save text in different formats, such as 
rich-text format or plain text, or add sup- 
port for bulleted paragraphs and simple 
macros. Whatever you do, when you un- 
earth VB's hidden goodies, you're sure to 
make it work for you in ways you never 
dreamed of. JEl 



Code Online 



You can find all the code published in this 
issue of Getting Started with Visual Basic on 
The Development Exchange (DevX) at http:// 
www.windx.com. For details, please see "Get 
Extra Code in DevX's Premier Club" in the 
Table of Contents. 

Discover VB's Hidden Treasures 
Locator+ Codes 

Listings for the entire issue, including the 

complete word processor demo program (free 

Registered Level): GS298 

Listings for this article only, plus the program 

described above (subscriber Premier Level): 

FBGS298 



http:/ /www. windx.com 
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Master the 



Fundamentals 



by Steve Harshbarger 



Build a loan payment 
calculator and learn 
essential VB program- 
ming practices along 
the way. 



If you're new to Visual Basic, either 
because you're new to development 
or migrating from another language, 
you are interested in learning the fun- 
damentals of developing programs in 
Visual Basic. This article will show you 
how to build a simple but useful loan 
calculator application. Then, using the 
completed application, you can enter 
information about car or home loans — 
loan amount, interest rate, and term — 
and calculate the monthly payment (see 
Figure 1). You can also run an analysis to 



Steve Harshbarger lives in California, 
where he manages the San Francisco of- 
fice of Micro Modeling Associates Inc., a 
firm specializing in developing custom 
applications for Fortune 1000 companies 
using Microsoft technology. He most re- 
cently coauthored the Microsoft Excel 97 
Developer's Handbook and Official 
Microsoft Intranet Solutions, both from 
Microsoft Press. Reach Steve on the Internet 
at harshbargers@micromodeling.com or 
through http:/ '/www.micromodeling. com. 
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see what the payment 
would be at a series of 
different interest rates. 

While you build this 
app, you'll learn about 
the VB environment, 
forms and controls, 
event-driven program- 
ming, and the VB lan- 
guage itself. Rather than 
water down the discus- 
sion, I'm going to intro- 
duce you to some of the 
basic techniques of 
good programming that 
professional VB devel- 
opers use to write robust, production- 
quality applications. Taking hold of these 
techniques from the get-go helps you start 
developing good habits early. 

First you need to familiarize yourself 
with the VB environment itself. When you 
launch VB, the dialog box asks what type 
of project you'd like to create (see Figure 
2). You can build many types of projects 
in VB, including standalone applications, 
controls for use in other applications or 
Web pages, components that run busi- 
ness logic on a server computer, and oth- 
ers. For your program, select "Standard 
EXE," which is the simplest form of a 
standalone application. EXE stands for 
"executable file," a program that can run 
all by itself. 

You now see the VB development en- 
vironment itself (see Figure 3). A series of 
windows appear, docked around the left 
and right sides of the VB application win- 
dow. Each window serves a different pur- 
pose, and each can be hidden or shown as 
needed through commands under the 



riar 



Entei youc loan information and click Calculate Now to detetmine the monthfy payment. 




Calculate Mow 




Figure 1. Use It For Loans. The loan calculator application 
determines payments for simple auto and home loans. This 
article shows how to design the form, add controls to accept user 
input, and write the code that does the calculations. 

View menu. You can also move these 
windows around the screen. The three 
most common windows are the Project 
Explorer, the Properties Window, and the 
Toolbox. The Project Explorer, shown in 
the upper right-hand corner in Figure 2, 
shows the various objects that compose 
your project. These objects typically in- 
clude forms and code modules of various 
types, which I'll explain in more detail 
shortly. The Properties Window, in the 
lower right-hand corner of Figure 2, lets 
you set properties of the various objects 
in your application. Properties, a key con- 
cept in VB development, control the ap- 
pearance and behavior of forms and con- 
trols. The Toolbox, along the left-hand 
side of Figure 2, contains controls, which 
you can add to your application's forms. 
Controls are usually visible user-inter- 
face elements such as buttons and edit 
boxes, which your user interacts with. 

Appearing in the center of the VB ap- 
plication window is a blank form. Forms 
are the basic building blocks of the user 
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interface for a VB program. Using forms, 
you can build the application windows, 
document windows, and dialog boxes that 
compose your application. In VB, you can 
have many forms open at the same time. 
Use the Window menu to switch between 
them, much like switching between open 
documents in Microsoft Word or Excel. 

In the VB toolbar, notice a button that 
looks like the "play" button on a VCR. This 
is called the Start button, which you use 
to run your application; the Run Start 
command does the same thing. When you 
click on Start, you switch your applica- 
tion from design mode to run mode. In 
design mode, you can do all the things 
necessary to develop your application- 
write code, add forms and controls, and 
set properties. In run mode, you can see 
how your application actually works with- 
out taking the time to compile it. To re- 
turn to design mode, click on the End 
button, which looks like a "stop" button 
on a VCR. A break mode allows you to 
pause while running an application and 
debug it. Debugging can involve stepping 
through code line by line and checking 
variable and property values to see what's 
going on. To get into this mode, click on 
the Break button, which looks like a 
"pause" button on a VCR. 

CUSTOMIZE YOUR FIRST FORM 

It's time to start writing the application. 
Use a form to create the main window for 
the loan calculator. Fortunately, VB sup- 
plied a form by default when you created 
the project. To customize the form, set a 
few of its properties using the Properties 
Window. This window displays proper- 
ties for whatever object is currently se- 
lected, as indicated by "Properties- 
Form 1 " in its title bar. The property names 
appear down the left column of the win- 
dow, and their values appear in the right 
column. To change a property, click in the 
right-hand column and either type in the 
new value or, in some cases, select from 
the provided list. 

The first property to change is the 
form's Name, which is displayed as 
"(Name)" in the Properties Window. Name, 
a property common to every form and 
control, is the designation by which the 
control appears in lists and is referred to 
in code. By default, VB provides names 
such as Form 1 , Form2, CommandButton 1 , 
ListBox3, and so on. It's always good prac- 
tice to change this to a more meaningful 
name before setting other properties or 
writing code. Meaningful names make your 
code easier to manage, read, and main- 
tain. Name this form "frmCalculator." The 
"frm" prefix reminds you that it's a form 
and distinguishes it from other types of 
objects in your application. 

Set the Caption property to "Loan Cal- 



culator" to customize the form's title bar. 
Set the BorderStyle to "1 - Fixed Single" to 
prevent the user from sizing the form and 
set MaxButton to "False" to prevent the 
user from maximizing the form. Finally, 
set StartUpPosition to "2 - Center Screen" 



| to make the form center itself on the 
, screen when it's first displayed. Click on 
I the Start button to test the form. Your 
| application goes into run mode and the 
form displays itself (see Figure 4). To 
I return to design mode, close the form or 
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ActiveX EXE ActiveX DLL ActiveX VB Application 
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Addin 



ActiveX ActiveX 
Document DLL Document EXE 



Open 
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Help 



I D on't show this dialog in the future 



Figure 2. Choose Your Project Type. VB developers can create a variety of project 
types, including standalone applications, ActiveX controls, and automation servers. 




Figure 3. Open the Toolbox. Developers around the world call the VB development 
environment home. It includes a complete set of tools to create and debug applications. 
The Toolbox, Project Explorer, and Properties Window are among the most commonly 
used tools. 
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Figure 4. lift Oft. Kou can run your application from 
within the development environment and easily switch 
between design, run, and break modes. 



13 £fe t* 9«w frojert 




JSjxf 




■ r «•-... , „ . sseKK 





13 a 




Figure 5. Adding Controls. You add controls from the 
Toolbox by clicking on and dragging a form. You can change 
their properties using the Properties Window and manipulate 
them directly using the mouse. 



click on the End button on the VB toolbar. 
This would be a good time to save your 
work. Click on the Save button on the 
toolbar and accept the default file names 
for each file in your project. VB prompts 
you to save both the form and the project 
itself, then saves each form and module in 
a separate file. The project file contains a 
list of all files in the project. One bit of 
advice: You can set an option that makes 
VB remind you to save changes to your 
project each time you run it. Choose the 
Tools Options command, Environment 
tab, and change the When a Program 
Starts option to Prompt to Save Changes. 

ADDING CONTROLS 

Your form is in good shape, but it needs 
a series of controls the user can interact 
with. Start by adding three basic con- 
trols — a label, a text box, and a com- 
mand button. To add a control, select 
the control type on the Toolbox, click on 
the form at the desired location, and 
drag the control until it reaches the de- 
sired size. Try adding a labeJ, which is 
represented by the "A" on the toolbar — 
second from the top left. Once you place 
the label, note that you can select it, 



move it, and resize it, much 
as you would work with 
objects in any drawing or 
graphics program. When 
the label is selected, the 
Properties window shows 
properties specific to the 
label. Set the label's Cap- 
tion property to "&Loan 
Amount:". Note that the 
ampersand causes VB to 
put an underscore charac- 
ter under the letter L in the 
label. The user can then 
use "L" as an accelerator 
key. Don't bother chang- 
ing the label control's 
Name property. Unless you 
plan to refer to a label in 
code, it's generally fine to 
accept the default name 
because these are more or 
less static objects. 

Add a text box and set 
its Name property to 
"txtLoanAmount" and its 
Text property to a blank 
string. Text boxes capture 
user input. They can be 
simple one-line text boxes, 
like the ones you use in this 
app, or large mutliline 
boxes that scroll, much like 
the Windows Notepad . Add 
a command button with the 
Name "cmdCalculate" and 
Caption "Calculate &Now." 
Command buttons invoke 
user commands when they are clicked 
on. The "txt" and "cmd" prefixes on these 
controls identify their types. Professional 
VB developers use a different prefix for 
each type of control. Although the actual 
prefix you use is arbitrary, it's best to 
agree on a set of standards to be used by 
everyone in your organization. Adhering 
to standards helps developers speak a 
common language and reduces the effort 
to understand, debug, and maintain oth- 
ers' code. After you add the controls, you 
might need to resize the form to accom- 
modate them (see Figure 5). At this point, 



feel free to run the form and see how the 
new controls behave at run time. 

WRITING CODE 

So far, you've taken heavy advantage of 
the "Visual" in Visual Basic. You can cre- 
ate a user interface complete with an 
application window and several controls 
without writing one line of code. That's 
why VB is such a productive tool — you 
don't need code to do much of the user 
interface work. That said, it's now time to 
focus on the "Basic" part of VB and bring 
your application to life. The key to writing 
code in VB is the concept of events. You 
use events to respond to actions taken by 
the user such as clicking on a button, 
selecting a menu command, or moving 
the mouse. Each form and control in VB 
supports a series of events, each of which 
corresponds to a different action or con- 
dition invoked by the user — or sometimes 
other means. For example, command but- 
tons have a Click event that fires when the 
user clicks on the button. Text boxes 
have a Change event that fires when the 
text is altered and a GotFocus event that 
fires when the cursor is first placed into 
the text box. An example of an event not 
created by the user is the event associ- 
ated with a control called a Timer. The 
Timer control has an event that fires at 
specific time intervals, which can be used 
to implement a clock, for example. 

VB programmers write code for events 
in event procedures. Add some simple code 
to respond to a click on the Calculate Now 
button. From within VB in design mode, 
double-click on this button to bring up 
the code window (see Figure 6). Write all 
your VB code in code windows. This code 
window contains code specific to 
frmCalculator and is stored within the 
form — a configuration often called "code 
behind forms." Two combo boxes appear 
at the top of the code window. The left- 
most box — the object selector — lets you 
navigate through the code by selecting 
different objects on the form, the form 
itself, or a general section of the module. 
The right-most box — the procedure selec- 
tor — lets you select different event proce- 



Control Name 


Type 


Property 


Value 


fxtlnteresf Rate 


text box 


Text 


(blank) 


txtTerm 


text box 


Text 


(blank) 


IxtPayment 


text box 


Text 


(blank) 






Locked 


True 






BackColor 


ButtonFace 


cboTermType 


combo box 


Style 


2-Dropdown List 


chkContinuousCalculation 


check box 


Caption 


&Calculate Continuously 



















Table 1 . Finish the Form. Add these controls to the form and set their properties to 
complete the user interface for the loan calculator. 
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dures for the selected control. Your command button has a 
whole series of events including the Click event, which is high- 
lighted in bold. The bold means that code has been written for 
this event. As you write code for other events, their names will 
become bold too. Make sure that cmdCalculate is the selected 
object and that Click is the selected procedure, then enter the 
middle line of this code — VB provides the first and last lines: 

Private Sub cmdCal cul ate_Cl i ck( ) 

MsgBox txtLoanAmount.Text 
End Sub 



Now run the application. A message box appears when you 
enter some text in the text box and click on the command button. 
This simple routine demonstrates quite a bit about VB code. The 




Private Function blnputlsVal idtobjControl As 
Control, sMessage As String) As Boolean 
On Error GoTo ErrorHandler 
blnputlsVal i d - False 
Set objControl - txtLoanAmount 
With objControl 

If Not IsNumerict .Text) Then 

sMessage - "Loan amount must be a number." 
GoTo RoutineExit 
End If 

If .Text <- Then 
sMessage - 

"Loan amount must be greater than zero." 
GoTo RoutineExit 
End If 
End With 

Set objControl - txtlnterestRate 
With objControl 

If Not IsNumerict .Text) Then 

sMessage - "Interest rate must be a number." 
GoTo RoutineExit 
End If 

If .Text <- Then 
sMessage - 

"Interest rate must be greater than zero." 
GoTo RoutineExit 
End If 
End With 

Set objControl - txtTerm 

With objControl 

If Not IsNumeri c( . Text ) Then 

sMessage - "Term must be a number." 

GoTo RoutineExit 
End If 

If .Text <- Then 

sMessage - "Term must be greater than zero." 

GoTo RoutineExit 
End If 
End With 

blnputlsVal i d - True 

RoutineExit: 
Exit Function 

ErrorHandler: 

MsgBox Err. Description, vbCritical 

Resume RoutineExit 
End Function 



Listing 1 . We All Need Validation. This function determines 
whether the inputs the user supplies are valid. It returns a Boolean 
(True or False) value. With statements refer to controls, built-in 
IsNumeric functions make sure numbers are entered, and 
conditional operators ( <, <=, and so on) test for valid ranges of 
values. Through its two arguments, the function also returns a 
reference to the offending control and an error message describing 
the problem. 
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statement "MsgBox" is a built-in command to display a message 
box. It takes as an argument the message to display, for which you 
are going to supply the contents of the txtLoanAmount text box. 
Refer to the text box by its Name, then to a specific property — in 
this case, Text — by separating the Name and property with a 
period, which you commonly call "dot." You would read this line 
aloud as "message box txtLoanAmount dot text." Now as it turns 
out, Text is actually the default property of the text-box control, 
so this line could be abbreviated as: 

MsgBox txtLoanAmount 

FINISHING THE INTERFACE 

Now that you know the basics of placing controls and writing 
code, finish the user interface for your application. Using the 
completed form in Figure 1 as a guide, add controls and set their 
properties (see Table 1). 

You need to add labels for each control, and use the amper- 
sand to underline the appropriate characters as shown in Figure 
1. In addition to the labels, two line controls appear above and 
below the large label at the top of the form. You added two new 
types of controls. The combo box displays multiple choices to 
the user and can appear as one of three styles. You've chosen 
the drop-down list style, which takes the least room on the form 
and forces the user to select an item from the list. The check box 



Each form has an associated code module, which contains event 
procedures for the form itself and each control on the form. Events 
let you respond to both user actions and operating system- 
produced occurrences. 



Microsoft Visual Basic 



Run-time error '13': 
Type mismatch 




Figure 7. Handle It. Oops! If a VB application encounters data or a 
condition it can 't handle, users can get a message like this or worse. 
It's your responsibility as a developer to code forgiving applications 
that handle such conditions gracefully. 
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lets the user indicate a yes or no choice by 
checking or unchecking the box. Finally, 
notice the use of the Locked and BackColor 
properties of the txtPayment text box. 
These properties makethis boxuneditable 
and give a visual cue indicating that it will 
not hold an input value, but a value you 
are going to calculate. 

Now add some code to populate the 
combo box with its value. To do this when 
the application initializes, use the form's 
Load event. This event fires when the form 
is first loaded into memory, just before it 
becomes visible. To get to this event pro- 
cedure, display the form's code window, 
select "Form" in the object selector, and 
select "Load" in the procedure selector: 

Private Sub Form_Load() 
With cboTermType 
.Addltem "Years" 
.Addltem "Months" 
. Li stlndex - 
End With 
End Sub 

This code introduces the With state- 
ment. With is a shorthand way of referring 
to the same object on several adjacent 
lines. In each line between With and End 
With, the object "cboTermType" is implied, 
saving you some typing. More importantly, 
the With... End With construct increases 
execution speed, because VB needs to "lo- 
cate" the object only once instead of three 
times in this case. This code also shows the 
concepts of a method on an obj ect . A method 
is some action an object can perform. In this 
case, the Addltem method adds an item to 
the list. Address methods as you address 
properties, with the dot operator. You're 
also using the Listlndex property of the 
combo box to set its selection to the first 
item (the list starts at zero, not one). 

Add some code to the chkContin- 
uousCalculation's Click event procedure. 
Eventually, you want the application to 
recalculate the payment automatically 
when this box is checked, thus making 
the Calculate Now button unnecessary. 
This event procedure enables and dis- 
ables the command button: 

Private Sub 

chkContinuousCalculati on_Cl i ck( ) 
If chkConti nuousCal cul ati on Then 

cmdCal cul ate. Enabl ed - False 
Else 

cmdCal cul ate. Enabl ed - True 
End If 
End Sub 

CALCULATING THE PAYMENT 

You need a routine to perform the loan 
payment calculation. One basic tenet of 
good programming is to separate the user 
interface code from the "business logic" 




code in an application. In your 
application, determining the 
payment is clearly the business 
logic, so put that code some- 
where other than the code mod- 
ule for the form. This placement 
lets you reuse the business logic 
code with other forms or appli- 
cations in the future. VB pro- 
vides standalone code mod- 
ules — those not associated with 
a form — for this purpose. To 
add one, use the Project menu's 
Add Module command. After 
you add the module, change its 
name to "modCalculations" us- 
ing the Properties window and 
notice that the new module ap- 
pears in the Project Explorer 
window. Then enter code to per- 
form the payment calculation. 
You have to take my word for it 
on the formula — 1 copied it from 
an associate's college finance 
textbook! 

Option Explicit 



Public Function dPayment(dPV As _ 
Double, dRate As Double, nTerm _ 
As Integer) As Double 
On Error GoTo ErrorHandler 
dPayment - dPV / ((1 / dRate) - _ 
(1 / (dRate * (1 + dRate) * _ 
nTerm) ) ) 

Routi neExi t : 
Exit Function 

ErrorHandl er : 

MsgBox Err . Descripti on , vbCritical 

Resume RoutineExit 
End Function 

The Option Explicit statement illus- 
trates another good programming prac- 
tice. This statement forces you to declare 
explicitly all your variables throughout 
the module, which can help eliminate bugs 
in your code. You can and should force VB 
to insert this statement automatically in all 
new modules by checking the "Require 
Variable Declaration" option on the Editor 
tab of the Tool menu's Options dialog. 

VB has two types of routines — func- 
tions and subs. Functions return a value 
and subs don't. Because you want to re- 
turn the payment as a value, use a function 
here. You've declared the function as Pub- 
lic, not Private, so that it can be used 
outside this module. You've also declared 
three arguments to the function, which are 
required to perform the calculation. You 
declare each one as a specific data type. 
Declare the present value (P V) and rate As 
Double — a number with a floating decimal 
point. Declare the term as an Integer be- 
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Figure 8. Pass the Menu. Adding menus to your 
application is a snap with the menu editor. It supports 
multiple levels of submenus, shortcut keys, andcontext- 
sensitive help. 



cause a decimal point is not needed for 
this value. Prefix each variable with a letter 
indicating its data type — "d" for double 
and "n" for integer. Declare the function to 
return a Double, and indicate that by giv- 
ing the function itself a "d" prefix. Finally, 
return the value of the function by writing 
a statement that assigns a value to the 
name of the function (dPayment) within its 
body. Use parentheses to set the order of 
the operation and the use the " A " sign to 
indicate exponentiation. 

The remaining lines of code imple- 
ment error handling. Using error-handling 
techniques, you can trap for unforeseen 
problems that can occur at run time, such 
as an attempt to divide by zero or deple- 
tion of disk space when saving a file. 
You've written a statement to set an error 
trap (On Error Goto ErrorHandler) that 
causes the routine to jump to that line if 
an error is encountered. If this happens, a 
message box displays a description of the 
error as returned from the intrinsic Err 
object. Then the Resume statement jumps 
control back to another label that marks 
the exit point of the routine. The Exit Sub 
statement prevents execution from flow- 
ing back into the error-handling code it- 
self in an infinite loop. I prefer to call this 
type of error handling "exception han- 
dling" because it is intended to trap truly 
unforeseen errors. Errors that you can 
anticipate should be coded for explicitly. 
For example, because this routine divides 
by dRate, you should prevent the user 
from entering zero for this amount in the 
first place. Do just that in a few minutes. 

Now you have a function to calculate 
the payment and a user interface to prompt 
for the necessary input values. All you 
need to do is write one more routine to 
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hook these two elements together. Get the 
input values from the form, run the pay- 
ment function, and place the answer back 
on the form, all at the request of the user: 

Private Sub Cal cul atePayment( ) 
Dim dPV As Double 
Dim dRate As Double 
Dim nTerm As Integer 
On Error Goto ErrorHandler 
dPV - txtLoanAmount 
dRate - txtlnterestRate / 100 / 12 
If cboTermType.Text - "Years" Then 

nTerm - txtTerm * 12 
El se 

nTerm - txtTerm 
End If 

txtPayment - dPaymenttdPV, dRate, 
nTerm) 
RoutineExit: 

Exit Sub 
ErrorHandl er : 

MsgBox Err. Description, vbCritical 

Resume RoutineExit 
End Sub 



declare a variable for each input value 
using the Dim keyword. Just like the argu- 
ments for your function, these variables 
are of a specific data type. Then assign the 
values from the form into each variable. 
The present value (PV) comes directly 
from txtLoanAmount. Divide the interest 
rate by 100 to get it into decimal notation, 
then by 12 to convert it to a monthly rate, 
because this is what the formula expects. 
The term depends on whether the user 
selects "Months" or "Annual" on the form. 
If the user selects "Years," multiply the 
term by 12 to convert it to months (trust 
me!). Use the conditional If-Then-Else-End- 
If statement to represent this logic. Finally, 
call your payment function, passing each 
argument, and assign the return value to 
appear in the text box on the form. To put 
this routine into action, call it from the 
Click event of the command button: 

Private Sub cmdCal cul ate_Cl i ck( ) 

CalculatePayment 
End Sub 



$424.94. Now try it again, but this time 
make a "mistake" in entering the input 
value by leaving the interest rate blank. 
You should get a nasty message (see Fig- 
ure 7), so click on the End button on this 
dialog. This message is the result of not 
adequately validating your user's input 
before attempting a calculation. If the 
user were running this application 
standalone, it simply would have crashed 
at this point with little or no explanation. 

In this case, you were trying to use a 
blank interest rate when the only values 
that make sense are rates greater than 
zero. Furthermore, you should also make 
sure the user didn't mistakenly enter a 
letter for an interest rate instead of a num- 
ber. To write a professional application, 
trap problems like these in your code to be 
more "forgiving" and suppress cryptic 
default messages when an error does oc- 
cur. For example, you can use a function to 
validate all the input values on the form 
(see Listing 1). You can incorporate this 
function into an improved version of the 
CalculatePayment routine (see Listing 2). 

You can enhance the calculator by 
adding a feature to recalculate the pay- 
ment automatically. Let the user turn this 
feature on and off using a check box 
(chkContinuousCalculation) on the form. 
With a little advanced knowledge of 
events, you can do this easily. Calculate 
the payment each time an input value 
changes. For text boxes, a Change event 
fires when the user changes the text. This 
is true for txtLoanAmount and txtTerm as 
well as txtlnterestRate: 

Private Sub txtInterestRate_Change( ) 
If chkContinuousCalculation Then 

Cal cul atePayment 
End If 

End Sub 

For combo boxes formatted in the 
drop-down list style, the Click event ac- 
complishes what you need: 

Private Sub cboTermType_Cl 1 ck( ) 
If chkContinuousCalculation Then 

Cal cul atePayment 
End If 

End Sub 

To make sure the payment calculates 
when the user turns on the feature, modify 
the check box Click event: 

Private Sub 

chkContinuousCal culation_Cl i ck( ) 
If chkContinuousCalculation _ 
.Value - vbChecked Then 
cmdCal cul ate. Enabl ed - False 
Cal cul atePayment 
Else 

cmdCal cul ate. Enabl ed - True 
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Now run the application and calculate 
the loan payment for a $20, 000 loan at a 1 
percent interest rate over five years. You 
should get a result of approximately 



Declare this routine as a Sub because it 
does not need to return a value, and as 
Private because it does not need to be 
used outside the form. In this routine, 

FvB5 

Private Sub CalculatePaymentt ) 
Dim dPV As Double 
Dim dRate As Double 
Dim nTerm As Integer 
Dim sPayment As String 
Dim objControl As Control 
Dim sErrorMessage As String 

On Error Goto ErrorHandler 
If blnputlsValidO Then 
dPV - txtLoanAmount 
dRate - txtlnterestRate / 100 / 12 
If cboTermType.Text - "Years" Then 

nTerm - txtTerm * 12 
Else 

nTerm - txtTerm 
End If 

sPayment - Format(dPayment(dPV , dRate, 
Else 

sPayment - "" 

If Not chkContinuousCalculation Then 
objControl .SetFocus 

MsgBox sErrorMessage, vblnformation , "Loan Calculator" 
End If 
End If 

txtPayment - sPayment 

RoutineExit: 

Exit Sub 
ErrorHandl er : 

MsgBox Err. Description, vbCritical 

Resume RoutineExit 
End Sub 

Listing 2. Trap Errors. This improved CalculatePayment routine calls the validation 
function in Listing 1 to ensure that all inputs make sense before attempting a calculation, 
thus trapping unexpected errors and application crashes. Unless the user has turned on 
(he continuous calculation feature, it also displays an error message and moves the cursor 
to the error using the SetFocus method of the control where the bad input was entered. It 
also employs the built-in Format function to format the resulting loan payment into a 
currency format with only two decimal places. 



nTerm), "Currency") 
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una iT 
End Sub 

ADDING A MENU 

Because most applications use a menu bar, add one to the loan 
calculator. With the form selected in the VB environment, select 
the Menu Editor command from the Tools menu, or the Menu 
button on the toolbar. The menu editor displays (see Figure 8). 
Use this editor to add a File menu with an Exit command, and a 
Tools menu with Rate Analysis and Calculate Now commands. 
You can use the arrow buttons to move menu items up and down, 
and to indent commands under menus and build submenus. Each 
menu must have a caption — remember to use the ampersand to 
create accelerator keys — and a name. A common convention is to 
prefix menu names with "mnu" and name them as they appear. 
Following this convention, you would name them mnuFile, 
mnuFileExit, mnuTools, mnuToolsRateAnalysis, and 
mnuToolsCalculate. You can also specify a single shortcut key for 
any menu; you've done that with the Calculate Now menu and the 
F9 key. Once you create the menus, they appear as any objects 
within the form's code module and support a single event: Click. 

Use the Unload statement to close the form to write the exit 
command for the application. Unload takes a form as an argu- 
ment. And in this case, you can use the Me keyword, which refers 
to the form that contains the code using the keyword: 

Private Sub mnuFi 1 eExi t_Cl i ck( ) 
Unload Me 



VB5 

Private Sub mnuTool sRateAnalysi s_Cl i ck( ) 
Dim nRateDelta As Integer 
Dim dCurrentRate As Double 
Dim objControl As Control 
Dim sErrorMessage As String 

On Error GoTo ErrorHandler 

If blnputlsVal id( objControl , sErrorMessage) Then 
dCurrentRate = txtlnterestRate 
For nRateDelta - -2 To 2 

txtlnterestRate - dCurrentRate + nRateDelta 

Cal cul atePayment 

MsgBox "Payment at " & txtlnterestRate & _ 
"% is " & txtPayment, vblnf ortnati on , 
"Rate Analysis" 
Next nRateDelta 

txtlnterestRate - dCurrentRate 
Cal cul atePayment 
Else 

objControl .SetFocus 
MsgBox sErrorMessage, vblnf ormati on , 
"Loan Calculator" 
End If 

RoutineExit: 
Exit Sub 

ErrorHandl er : 

MsgBox Err . Descri pti on . vbCritical 

Resume RoutineExit 
End Sub 



Listing 3. Analyze Rates. This routine implements a rate 
analysis feature. Using a For Next loop, it calculates the loan 
payment for interest rates two points above and below the selected 
rate in one-point increments, for a total of five calculations. 
Additional arguments to the MsgBox function control what icon is 
displayed-in this case, the information icon-and the title displayed 
in the message box. The routine returns the interest rate to its 
original value after running the analysis, and validates the input 
using the validation function before attempting the analysis. 
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To make the Calculate Now menu do the same thing as the 
button, simply call the same CalculatePayment routine: 

Private Sub mnuTool sCal cul ate_Cl i ckt ) 

Cal cul atePayment 
End Sub 

Your final feature, the Tools Rate Analyzer command, displays 
payment amounts at different interest rates slightly above and 
below the selected rate (see Listing 3). The program calls this 
feature from the Calculate Now menu's Click event procedure. 

Now you need to do a few more things before shipping your 
loan calculator out to users. The first two are aesthetic touches 
and the third — compilation — is absolutely necessary. Start by 
setting the tab order of the controls on the form. The cursor 
moves through the controls in tab order when the user presses 
the tab key. Unless you've created your controls in the exact 
order you want the tabbing to work, the tab order is probably a 
jumbled mess right now. Set the tab order using the Tablndex 
property of each control. Start the first control at zero, then 
number incrementally in a natural order, typically left to right, 
then top to bottom. One important note: a label that appears just 
before another control in the tab order causes the accelerator 
key — indicated by the ampersand in the Caption — to move the 
cursor to that control. So in your application, if the Loan Amount 
caption order is 1 and txtLoanAmount is 2, pressing Alt-L in the 
application moves the cursor to txtLoanAmount. 

Another good idea is to pick an icon to represent your form. Do 
that through the Icon property of the form. This property displays 
a dialog to let you select an icon file. Many icons ship with VB, and 
you can buy more or create some yourself using various graphics 
programs. If your app has many forms, specify which form's icon 
should represent the entire app. Do this through the Project 
<project name> Properties command, Make tab, Icon option. 

Finally, compile your project into an executable (EXE) file. 
You can then distribute this file, along with a few other support 
files, to end users so they can run your application without the 
VB environment. To compile the project, choose the File Make 
<project name> EXE command. This command prompts for a 
name and location to save the EXE file to. 

I've covered Visual Basic's environment, forms, controls, prop- 
erties, methods, events, VB code, menus, and finishing touches. 
I've also tried to convey some good practices used by professional 
programmers, including naming conventions, explicit variable 
declaration, separation of user interface and business logic, and 
trapping/forgiving user "errors." Although I've barely scratched 
the surface of VB development, you should walk away from this 
article with a good base for exploring VB on your own. M 
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You can find all the code published in this issue of Getting Started with 
Visual Basic on The Development Exchange (DevX) at http:// 
www.windx.com. For details, please see "Get Extra Code in DevX's 
Premier Club" in the Table of Contents. 
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Locator* Codies 

Listings for the entire issue, plus the loan payment calculator app (free 
Registered Level): GS298 

Listings for this article only, plus the loan payment calculator app 
(subscriber Premier Level): SHGS298 
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GUI Aesthetics 



The Art of 



the GUI 



by Virginia Howlett 



Users know what they 
like in GUI design: a 
subtle aesthetic. Here's 
how to get it. 



Visual Basic programmers have 
faced developmental phases in 
mastering the principles of 
graphical user interface (GUI) 
design since the introduction of VB. First 
there was the task of discovering how 
Visual Basic worked: dragging controls, 
placing them on forms, setting proper- 
ties, and painting an interface in a matter 
of hours instead of painstakingly hard- 
coding it in weeks or months. 

Virginia Howlett is founder and president of 
Blue Sky Design Inc., a Seattle-based inter- 
face-design consulting firm. Virginia worked 
at Microsoft for 11 years, eventually serving 
as director of Visual Interface Design. She led 
the visual interface design of Windows 3.0, 
3. 1, and 95, and worked on the design of early 
versions of Word, Excel, 
Office, and Visual Basic. 
In 1996, she wrote the 
book Visual Interface 
Design for Windows, pub- 
lished by John Wiley & 
Sons. Reach her by e-mail 
at virginia_howlett@ 
email.msn.com. 




The next rung on the ladder of becom- 
ing a "VB interface artist" was learning 
when to use the right control for the 
right task — do 1 need a list box or text 
control? Once the paradigm was mas- 
tered and programmers learned how to 

Figure 1 . A Makeover 
Step By Step. The original 
VB3 Phone List GUI 
(Figure 1A) lackedcontrast 
between text and labels, 
the 3-D wasn't carried 
through consistently, and 
shadows were incorrect. 
Also, shadows on the plus 
signs were blurred. In the 
first revision (Figure IB), 
simple changes created 
vast improvements. By 
filling the text-entry areas 
and list boxes with white, 
making highlights and 
shadows on the tabs con- 
sistent, and changing the 
plus signs to red, the 
function of the window was 
clarified Inthenextrevision 
(Figure 1C), the app was 
updated to Windows 95 
standards. It used the more 
subtle border styles 3-D 
presentation, and it elim- 
inated the second control. 
In the next re vision (Figure 
ID), I created a 256-color 
palette for textured back- 
grounds and 3-D elements. 
I improved the fonts, 
simplified the controls, 
and added an image of 
the person. 



use controls, they ran the risk of entering 
the "ransom note interface" phase, where 
programmers used every color, type of 
font, font size, and free-form layout. A 
little constructive feedback from users, 
colleagues, or even a graphic designer 
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nudged programmers toward the next 
phase — restraint and simplicity with ad- 
herence to some basic graphic design 
rules. Each programmer goes through 
these phases. 

Now it's time to consider taking a step 
up to the next level of Windows custom 
application development: the GUI as art. 
Studying the makeovers and guidelines 
I'll provide won't necessarily make your 
interface worthy of display at the Louvre, 
but these examples and tips will defi- 
nitely make you a better interface de- 
signer. And keep in mind that I'm describ- 
ing the artistic elements of GUI design 
strictly from a practical, hands-on per- 
spective of what works to make interfaces 
better for your users. 

All enhancements to user interfaces 
must be implemented with an emphasis 
on usability rather than pure aesthet- 
ics. In fact, usability problems are often 
aesthetic problems. The trend in GUI 
design is toward greater usability 
through aesthetic appeal. Not only is 
this true for multimedia CD titles or 
World Wide Web pages (for which VB is 
positioned as a key development tool), 
but for productivity applications as well. 
Even if you're developing front ends to 
corporate databases, open your mind 
to new research and possibilities in GUI 




design. To demonstrate advanced GUI 
design, I'll critique interfaces from com- 
mercial software to show both good and 
bad GUI implementation. 

I've broken this article into two sec- 
tions: makeovers and common errors to 
avoid. Additionally, I've included a dis- 
cussion of guidelines for nonvisual as- 
pects of application development. In the 
makeover section, I'll walk you through a 
step-by-step redo of a VB app that shipped 
as a sample with VB 3.0. Then I'll critique 
a makeover of Microsoft Money. To ex- 
plain common errors in the second half of 
this article, I'll use shipping examples of 
good and bad user interfaces. 

You've probably seen the application 
used in the first makeover: it's Phone List, a 
sample Microsoft application that shipped 
with VB 3.0 (see Figure 1A). The app has a 
list box with expandable entries, and items 
in a list box being connected to the data that 
appears on a set of tabs. Obviously this user 
interface hasn't been polished. 

Some big design problems are immedi- 
ately obvious with Phone List. First, be- 
cause everything is gray, it's hard to distin- 
guish the text entry areas from labels. The 
slight 3-D shadows on the top of the tabs 
aren't carried through to the rest of the 
tab, and the shadows are inconsistent with 
a top-left light source (highlights should 
appear on the top of the 
tabs, rather than shad- 
ows). The bright blue, 
drop-shadowed plus 
signs in the list box 
stand out, but they look 
fuzzy because there 
isn't enough contrast to 
read the shadow as a 
shadow. Consequently 
the plus sign looks 
blurred. Moreover, the 
plus sign disappears in 
the default highlight se- 
lection color, so it's dif- 
ficult to see the plus sign 
on the selected line. 

So much for the 
obvious aesthetic prob- 
lems. The subtle prob- 
lems are more difficult 
to notice but just as 
important. First, the 
text entry areas have 
slightly different sizes 
and they're not lined 
up exactly, which cre- 
ates vague discom- 
fort — a sense of dis- 
organization. Slight 
misalignments of ob- 
jects are subtly disturb- 
ing because you see 
objects in the world 
by their edges. The 



controls on this tab need regularization and 
placement in an even array or grid layout. 

Additionally, the scrollbar displaying 
"Anderson, Jack," at the bottom of the 
tab is hard to notice. It gets lost in the sea 
of gray background color. It's crammed 
close to the buttons below it. The eye 
easily misses the scrollbar entry when 
passing from the text entry areas to the 
buttons at the bottom. Because of its 
placement at the bottom, the scrollbar 
looks like a document scrollbar rather 
than a name-field scrollbar, so it's easy 
to ignore. Also, the buttons at the bot- 
tom are too large and crammed into too 
little vertical space. 

SMALL CHANGES, BIG IMPROVEMENTS 

Minor enhancements make big improve- 
ments in the application's usability and 
appeal. Simply filling the text-entry areas 
and list box with white, making highlights 
and shadows on the tabs consistent, and 
changing the plus sign to a simple red 
character make the window's function 
immediately clearer (see Figure IB). The 
red plus sign, without a drop shadow, is 
visible on white and on the selection high- 
light color. The 3-D effect on the tabs 
mimics the 3-D buttons, making the tabs 
appear selectable. 

Now I'll explain the next level of im- 
provement. Note how in Figure IB all the 
text-entry areas have been regularized: 
they are the same height, and where pos- 
sible, their left and right edges have been 
aligned. Also, the vertical spaces between 
text fields are the same. A modified grid- 
like appearance has been established, 
even though the labels are right aligned. 
The scrolling control has been pulled off 
the bottom and filled with white to show 
equivalence between the phone list entry 
and the scrolling entry. Now that the scroll- 
ing control is isolated, with space be- 
tween it, the tab above, and the buttons 
below, it is much more visible, and its 
function is more obvious. 

Also, placing the scrolling control text 
on white helps it stand out because of the 
increased contrast. The dialog buttons 
have been made a standard size, and the 
list box has been made longer to accom- 
modate more entries because the list box 
function is more important than space for 
three command buttons. 

This revision (see Figure IB) would 
be passable as a Windows 3.1 applica- 
tion. It's simple and straightforward, 
cleanly designed, and its functions are 
clear. But the functionality of the inter- 
face needs improvement. Why do two 
controls do exactly the same thing? The 
expanding list control and the scrollbar 
control both take you to a phone list 
entry. Each list entry has three tabs asso- 
ciated with it. 
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Figure 2. Old Money. Microsoft Money 3.0 was designed to look and work like most 
productivity applications. Its spreadsheet-like appearance was functional, but the 
design left room for improvement. 



CREATING THE WINDOWS 95 LOOK 

In the next revision (see Figure 1C), the 
phone list application is updated to Win- 
dows 95 standards. It uses the more subtle 
border-styles 3-D presentation, and it 
eliminates the second control. I've added 
an Expand All button to quickly give users 
a full list from which to choose an entry. 
This change makes it easy to use the list 
for finding entries rather than relying on 
the scrolling control. 

Notice how the more subtle 3-D and the 
nonbold font together make the interface 
softer and less glaring. Because a nonbold 
font is used, one more regularization was 
added to the entry fields: the words "Postal 
Code" now fit in the same area as "First 
Name." This change creates a two-column 
grid of entry fields. Also, the plus signs in 
the expanding list have been changed to a 
black outline to conform to the appear- 
ance of expanding lists in Windows 95. The 
black outline design has the advantage of 
being visible on any background, and it 
doesn't interfere with the colors of small 
icons. In Windows 95, lists of items often 
have small 16-by-16 pixel icons next to the 
item name to facilitate visual identification 
and drag-and-drop, so it's important not to 
interfere with these icons. 

The revisions in Figure 1C soften and 
clarify the functions of this application 
even further — making it a good Windows 
95 product. Yet it could be improved with 
subtle icons on each tab, or a small photo 
of each person on the tab. Adding graph- 
ics would mean making the tabs larger 
and adjusting the layout. It's now a good 
productivity application. However, if you 
weren't developing this product for the 
office professional, and consistency with 
Windows 95 was unimportant, you could 
make it even more visually appealing. 



I've enhanced this application about 
as much as it can be improved while still 
remaining true to the original design (see 
Figure ID). For this version I've created a 
256-color palette and used it to generate 
textured backgrounds and 3-D elements. 
I've improved the fonts, simplified the 
controls, and added an image of the per- 
son. Note that the controls in this 
makeover essentially remained the same 



from start to finish. 

Slight visual changes can create a so- 
phisticated feeling in a very simple prod- 
uct. Notice how the softer colors of the 
wood texture, the clearer font, and the 
graphics make the application appear 
more attractive. Also notice that the warm 
tones of the wood texture are enlivened 
by the spots of cooler blues. The softer 
colors create a more relaxed feeling, one 
that invites you in and seems less intimi- 
dating. Still this makeover changes only 
the visual qualities of the window. 

Now I've reached the point of question- 
ing the entire metaphor for this application. 
What I have works nicely, but I can consider 
more possibilities. The next step is to ques- 
tion whether the expanding list is the best 
way to navigate through the phone list's set 
of names, and design a different interaction 
method. Also, a set of tabs is not the most 



engaging way to present phone numbers 
and addresses. Depending on the audience, 
the address/phone entries could be merged 
and presented as handwritten information 
on sheets of paper, etched into stone tab- 
lets, or chalked on a blackboard, or they 
could simply zoom out when the name or 
photo is clicked. This is the aspect of GUI 
design where it's useful to use your imagi- 
nation or turn to a graphic designer. 

MONEY MAKEOVER 

Shrinkwrapped retail applications benefit 
from makeovers as well. Money 3.0 (pre- 
cursor to Money 98) was designed to look 
and work like most productivity apps (see 
Figure 2). It uses a spreadsheet-like ap- 
pearance with standard windows and dia- 
logs. However, the first true Windows 95 
version — Money 4.0 — was completely dif- 
ferent. Most of the things that made Money 
4.0 an innovative product aren't evident in 
the visual interface design. The improve- 
ments were the result of a strong UI design 
strategy, and lie deep within the product. 
The makeover of Money serves as a good 
case study for improving any type of appli- 
cation because the techniques and design 
approaches are widely applicable. 

Before analyzing the Money makeover, 
some background information is useful. 
Money competes with Quicken, and 
Quicken has dominant market share. 
Rather than competing on features, Money 



designers decided to leapfrog Quicken in 
usability. First, the Money team conducted 
extensive contextual inquiry studies. They 
surveyed users in their homes to learn 
what their most common tasks were, and 
logged details of the methods people used 
to do their finances, either with software 
or with traditional paperwork. They ana- 
lyzed market research, and decided the 
only possibility for beating the competi- 
tion was to change the rules of the game. 

Instead of mimicking office productivity 
applications, the designers decided Money 
should look and function more like a home 
CD title. Then they did a task analysis and 
built the design around making the most 
common tasks the simplest. They reorga- 
nized existing features to make them promi- 
nent and more usable. For example, chart- 
ing was buried several dialogs deep in an 
obscure corner of the product, but now it's 
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Minor enhancements make 
big improvements in the 
app's usability and appeal. 



available on the startup screen. 

The designers built elaborate, detailed 
prototypes to communicate the vision of 
this innovative approach, to get the team 
to agree on the vision, and to work out 
details of the design and interaction. They 
included a graphic designer, and stressed 
the importance of the visual presentation 
from a very early stage. Making Money 
appear more like a home product meant 
making it more attractive and more visu- 
ally engaging. Achieving this meant fol- 
lowing through on all of the picky details 
of the visual and interaction designs. 

BANKING ON AESTHETICS 

Many details contributed to the success 
of Money's visual presentation (see Fig- 
ure 3). I'll outline a few here. Notice that 
remnants of the Windows 95 interface 
remain. Money 4.0 acquired a multime- 
dia/Internet-style design, with a large 
headline on the upper left, and GoTo, 
Back, and Contents buttons to navigate. 

The Money team chose two neutral- 
colored wood textures for different ele- 
ments of the product. These textures make 
a good background for the functional parts 
of the interface, subtly unifying them, and 
the textures communicate a home-like, 
comfortable ambiance. The darker wood 
unified the navigation area of the product, 
while the lighter wood served as a base for 
the work area. The color of these textures, 
and the soft grays and greens of the title/ 
menu combinations workwell visually with 
the color of the few Windows 95 standard 
menus. To learn how to code such a UI in 
VB5, see "Say Goodbye to Battleship-Gray 
Forms" [VBPyMarch 1997]. 

This choice of subtle color combina- 
tions both toned down the product, mak- 
ing it appear warm and inviting, and enliv- 
ened it with gentle contrasts. Note the 
small, soft, drop shadows under the entry 
areas, as if they were paper, and the cut- 
in area on the upper right for functional 
command buttons. But also note how soft 
and quiet these touches are. Most users 
wouldn't notice these details. All they'd 
see is that the product appears sophisti- 
cated, inviting, and clear. 

The arrangement of elements and orga- 
nization of features also worked well. The 
most common task was positioned in the 
upper left, with less important tasks on the 
right. Functions were integrated on the same 
screen instead of on different windows; 
everything was exactly aligned within a 
clear and consistent layout. In short, the 
product'selementswerecloselyintegrated, 
both visually and functionally. Because it 
was task-based and designed with both 
visual sophistication and strong internal 
consistency, Money 4 was simple to figure 
out and pleasant to use. It met all the re- 
quirements of good GUI design, with an 
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Figure 3. New Money. Microsoft Money 4.0 was designed to move beyond the look of 
Windows 95 to a CD or Internet style, with a large headline on the upper left, and GoTo, Back, 
and Contents buttons for accessing parts of the product. Usability research resulted in grouping 
functions by priority: first, transactions (grid), then account register information (in the new 
tabbed dialogs at bottom ), and last, account details, balances, and notices (at right). 
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Figure 4. The New Look Of Money. Based on usability research, designers added this 
new startup screen to Money 4. with a CD style, and functionality grouped by significance 
and easy access. The graphics and soft colors emulate the look of an Internet Web page 
or CD screen. Most important functions are grouped at the upper left, beginning with 
Account Register. Charting ability is displayed in the middle. Less commonly used 
functions (Account Manager and Investment Portfolio) are smaller and grouped at the 
bottom, while infrequently used features are smallest and placed at the right. 



interface worth emulating in your designs. 

In addition to improving the transaction 
screen for Money, a new home screen pro- 
vided a CD-type look, with careful applica- 
tion of the design guidelines I've discussed 
(see Figure 4). This startup screen makes a 
good GUI to emulate. The style of the home 



| screen is quiet and inviting. Functionality is 

■ grouped by significance for easy access, 

' and the graphics and soft colors emulate 

| the look of an Internet Web page or CD 

i screen. The arrangement of elements and 

organization of features are clear. 

I Most important functions are grouped 
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Figure 5. Operating Systems Need Consistency, Too. The Windows NT3 toolbar used 
the Windows 95 style of 3-D buttons. But the rest of NT had the older Windows 3. 1 3-D 
appearance, with a pronounced black border and different highlights and shadows. This 
Win95 toolbar looked like an outsider within the NT3 environment. 



at the upper left, beginning with Account 
Register. Charting ability is displayed in 
the middle. Less commonly used func- 
tions (Account Manager and Investment 
Portfolio) are smaller and grouped at the 
bottom, while least-often used features 
are smallest and placed at right. These 
tasks are grouped in subtle incised frames . 
The sizes of the illustrations create a vi- 
sual hierarchy, with more important ar- 
eas larger, and the least common tasks 
smallest. Layering functions under differ- 
ent parts of the home screen makes them 
clear without seeming hidden. 

Designers make many errors during Ul 
development. But if you focus on doing 
just seven things right, your product will 
be significantly better. Here are my solu- 
tions to the seven deadly design sins. 

INCONSISTENCY AND LACK OF RESTRAINT 

The most common problem is lack of at- 
tention to details. This problem was even 



found in operating systems such as Win- 
dows NT3 (see Figure 5). The NT3 toolbar 
used the Windows 95 style of 3-D buttons. 
But the rest of NT had the older Windows 
3.1 3-D appearance, with a pronounced 
black border and different highlights and 
shadows. This Win95 toolbar looked like 
an outsider within the NT environment. 

For visual consistency, establish a de- 
sign strategy and style well in advance of 
development. Prototype extensivelytowork 
out design details. Monitor the small details 
within the product during development, 
making sure every pixel is in the right place. 

Getting all the details right creates 
harmony — everything fits together. Some- 
times you might have to give up adding 
something impressive because it doesn't 
go with rest of product. But it's better to 
have smooth, consistent, harmonious vi- 
suals than one exceptional element that 
stands out like a sore thumb. 

The Microsoft Encarta Encyclopedia 



is a good example of visual consistency 
(see Figure 6). This interface, composed 
of flat controls, shows a nonstandard 
user interface that is nonetheless com- 
pletely consistent, tightly integrated, and 
visually sophisticated. 

Great design means refinement. When 
a design lacks restraint, the interface 
looks chaotic, disorganized, and cheap. 
Everyone's definition of what looks good is 
different. It's better to create interfaces 
that are simple and serviceable rather than 
overbearing and unappealing. Avoid using 
too many background colors; inconsistent 
layout; arbitrary uses of typography (such 
as hard-to-read italic headers); confusing, 
inconsistent, and overdone 3-D elements; 
and brightly colored icons. 

Your interfaces will look more pol- 
ished and professional if you hold back 
the urge to make cool stuff. Think of the 
audience: what visual style do they ex- 
pect? A simple presentation is always 
better than a complex one. But, don't be 
so restrained that your interface is bor- 
ing. Add interest in the form of subtle, 
well-chosen illustrations, elegant icons, 
and well-designed typography. 

OVERBEARING METAPHORS AND BAD 3-D 

The overdone metaphor is a sure way to 
bad design. I've seen a lot of cute 
pseudorealism that doesn't work consis- 
tently. Unnecessary realism, such as show- 
ing rings in a notebook, just takes up space 
without adding to usability. A metaphor 
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II Coral Reef in the Red Sea 
Coral Reef, ridge or elevated part of 
a relatively shallow area of the 
seafloor, approaching the sea's 
surface. It is formed by a rocklike 
accumulation of calcareous 
(calcium-containing) exoskeletons of 
coral animals, calcareous red algae, 
and mollusks. Built up layer by layer 
by living corals growing on top of the 
skeletons of past generations, coral 
reefs grow upward at rates of 1 to 100 
cm (0.4 to 40 in) per year. Coral reefs 
are tropical, extending to about 30° 
north and south of the equator and 
forming only where surface waters are 
never cooler than 16° C (61° F). 

Forms of Life 

Coral reefs are ecosystems with 
well-defined structures that involve 




Figure 6. Be Consistent. The Microsoft Encarta Encyclopedia is a good example of visual consistency. This nonstandard interface is 
composed of flat controls, but they are nonetheless completely consistent, tightly integrated, and visually sophisticated. 
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can be helpful in providing affordances, but 
when taken too literally, metaphors restrict 
the design and get in the way of the content 
or the task at hand. You're displaying meta- 
phors on a computer, so you'll be more 
successful by being true to the medium. 

You don't have to be literal, especially 
at the expense of screen space. Only be 
literal when it's absolutely necessary 
to communicate the concept. Some 
pseudorealism can be good, but not if it 
gets in the way of content. 

Windows 3.1 applications were rife 
with too much 3-D, inconsistent 3-D, and 
3-D for the sake of having 3-D. Overuse of 
3-D results in a distracting, overbearing, 
and often just plain ugly design. 3-D ef- 
fects aren't like a recipe, where if a pinch 
is good, more is better. 

Instead of using too much 3-D, stick to 
consistency with the operating system. If 
consistency with the 3-D of Windows 95 
doesn't fit your audience profile, then 
carefully define a design style that does 
and stick to that. 

BAD ICONS AND TYPOGRAPHY 

Poorly designed icons don't convey infor- 
mation — they're both confusing and ugly. 
Using icons that don't fit the product's 
paradigm is another common mistake. 

So many designers today have experi- 
ence designing icons, there's no longer 
any excuse for bad icons. Hire an experi- 
enced designer with a strong portfolio of 
examples. Then give your designer some 
resources for background information: The 
Icon Book: Visual Symbols for Computer 
Systems and Documentation by William 
Horton (Wiley Computer Books) and Win- 
dows Interface Guidelines for Software De- 
sign and Windows Interface: An Application 
Design Guide (Microsoft Press, July 1995 
and October 1995) are good resources. 
Give your designer examples of icons or 
graphics that will fit the style of your target 
audience. When in doubt, mimic the style 
of the icons in the operating system. 

Great typography is hard to do on the 
screen because there aren't many good fonts 
available. But it's common to see a poor 
choice of fonts, resulting in fonts that don't 
communicate the feeling or style intended 
by the designer. Another mistake is hard- 
coding fonts in a particular color and size, 
possibly one that might be hard to read for 
large segments of the population. It's also 
common to see fonts that are too small to 
read easily or too big and overdone. 

The fonts in an old VB sample applica- 
tion I found were chosen poorly (see Fig- 
ure 7). First, the buttons use a serif italic 
font, which is jagged, and this font adds 
nothing to the content. Then, a small, 
bold, hard-to-read serif font is used for 
both label text and entry fields. The fields 
are squished together, and it's almost 



impossible to read the text. Just using the 
standard system font, and spacing the 
entry fields better, would make a big dif- 
ference in the usability of this form. 

For effective use of fonts, have a type 
designer create the typography for your 
GUI. High-quality type design sets the 
tone of an interface. And always allow 
the user to change the size and color of 
fonts using a menu, dialog, or through 
the Windows 95 Control Panel. Microsoft 
Encarta uses clear, consistent, and so- 
phisticated typography (see Figure 8). 
And, the interface allows the user to 
make the text size larger 
from a readily acces- p 
sible menu. 



popular option is to design your own 
color palette and load it with your appli- 
cation the way Encarta does. 

Following these straightforward 
guidelines can take you a long way toward 
improving your app. Define your product's 
visual style based on its audience. Set up 
a team of designers and developers early 
in the process and build bridges between 
them. Refine, simplify, add interest, and 
pay attention to the details. Talk to users, 
build prototypes, conduct usability tests, 
and improve the design. But above all, 
have fun! x| 
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TOO MANY BRIGHT 
COLORS 

Everybody likes color, 
but don't overuse it. You 
need only a small amount 
of bright color to add in- 
terest to a design. Softer, 
quieter, muted shades 
are usually better. Also, 
with color it's easy to as- 
sume that the user's 
taste is the same as 
yours, but preference for 
colors varies widely. 

Use fewer, softer, 
more neutral colors. Use 
small amounts of bright 
color for emphasis and 
punch. Windows 95 has 
a 256-color palette that 
offers softer colors 
when running on 256- 
color machines. A more 
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Figure 7. Avoid Jagged and Inconsistent Fonts. The serif 
italic font in this VB screen is jagged and adds nothing to the 
content. The small, bold, hard-to-read serif font is used for both 
label text and entry field. Also, the fields are squished together. 
More space should be allotted between the fields. 




Figure 8. Fonts Make a Statement. Microsoft Encarta employs a clear, consistent, 
sophisticated use of typography. High-quality type design sets a sophisticated tone for an 
interface. Also, always allow the user to change the size and color of fonts from a menu, 
a dialog, or through the Windows 95 Control Panel. 
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Not Just Another 



by Ward Hitt 



Create a visually 
pleasing, Explorer-style 
database editor with 
the VB5 AppWizard. 



VB5 literally changes the face of 
VB. For the first time since VB 1 , 
Microsoft has overhauled the 
Integrated Development Envi- 
ronment ODE) radically, and VB5's native 
compiler and new custom controls dra- 
matically increase the capabilities of VB 
programmers. But the changes in VB5 go 
beyond installing a few new features : they 
enable you to create whole new styles 
and types of programs. This article dem- 
onstrates a simple database editor to show 
you how to leverage the new features of 
VB5 to create more appealing interfaces 
for your users. The database editor em- 
ploys an Explorer-style interface for the 
drill-down and display of data. Before I 
launch into the sample app, however, I'll 
cover a few of the principles of user inter- 
face (UI) design and the most important 
new feature in VB5 from a UI perspective: 
the Application Wizard (aka AppWizard). 
Three primary considerations control 

Ward Hitt is the developer of the CodeBank 
VB code library, published by Visual Com- 
ponents; author of the book Optimizing 
Visual Basic 4 (Que); and a frequent con- 
tributor to VBPJ. Reach Ward at 
73361. 106@compuserve.com. 



interface design: human capabilities and 
behaviors; accepted design styles and 
practices; and the features of the avail- 
able development tools. Microsoft can- 
not alter basic human capabilities, but 
the company is in the driver's seat for the 
other two parameters. VB5 introduces 
new recommended interface styles, ap- 
plication wizards, splashier ActiveX con- 
trols, and built-in form template support. 
These features result in nicer apps, which 
subsequently might result in more work 



for the programmer. So, take advantage 
of VB5's tools for automating the new 
interface features. 

As you might recall, with VB4, 
Microsoft strongly suggested that mul- 
tiple document interfaces (MDI) were a 
thingof the past, and that multiple runtime 
instances of single document interface 
(SDI) forms were a better way to imple- 
ment applications. Programmers largely 
ignored this advice, including program- 
mers at Microsoft. However, the com- 
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Figure 1 . Design an Explorer-Style App, This is the Explorer-style Application Wizard 
output at design time. The form may look small, but not to worry — the code created by the 
AppWizard includes automatic smooth resizing support, as well as size and position memory. 
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Figure 2. Let VB5's AppWizard Take Out the Grunt. VB5's Application Wizard 
makes it easy to build a full-featured application shell, elim inating lots of grunt programming 
and form layout work. 
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pany appears to have done an about-face 
with VB5. VB5 not only continues to sup- 
port MDI and SDI, but is itself an MD1 app. 
The bigger news, though, is that Microsoft 
now suggests a third standard interface 
style that it calls Explorer. 

An Explorer-style interface is a spe- 
cial type of SDI application. The main 
form for this kind of app is modeled after 
the Windows Explorer. Explorer-style 
forms possess several features, includ- 
ing a full menu and dockable toolbar. But 
the most dominant feature of this inter- 
face type is a double-paned drill-down or 
exploration area, with the left pane serv- 
ing as an outline control, and the right 
pane showing a detail list based on 
ListView (see Figure 1). 

The deceptively simple Explorer-style 
form contains relatively few controls, and 
its elegant style, originally designed for 
directory browsing, is well-suited for the 
drill-down database applications many of 
us spend the majority of our time creat- 
ing. However, you need to embed a lot of 
functionality in the controls and code to 
implement the form properly. This inter- 
face style mimics the functional Windows 
Explorer. Your users are probably famil- 
iar with Windows Explorer because most 
Win95 users navigate their files with it. 
Your users also expect a form that looks 
like Explorer to act like Explorer, with 
drag-and-drop; full menu and toolbar sup- 
port; context-sensitive, right-mouse 
menus; and much more. This means a lot 
of work for you. 

APPWIZARD CREATES A BEAUTIFUL SHELL 

Fortunately, VB5 ships with a tool that 
automates much of the effort involved in 
setting up a full-featured interface: the 
AppWizard (see Figure 2). AppWizard 
does much more than set up Explorer- 
style forms. It creates a beautiful, profes- 
sional shell for your entire application, 
whetheryour app employs Explorer-style, 
MDI, or SDI forms. Simple to use, 
AppWizard lets you make choices about 
the app you want to build, including name, 
interface style, and standard forms and 
features to include. The wizard generates 
a new project with code customized to 
your requirements when you finish stat- 
ing your choices. 

AppWizard projects have lots of fea- 
tures. The wizard automatically gener- 
ates a full menu with all the standard 
menu items and more, including a Most 
Recently Used (MRU) files section. Ex- 
plorer-style projects have a main form 
with a nice TreeView/ListView interface, 
complete with splitter-bar support built 
into the code. Explorer, MDI, or SDI 
projects contain nice toolbars, which in- 
clude graphics, tooltips, and basic func- 
tionality. You can specify what database 



http://www.windx.com 



the project will work with, and have 
AppWizard build data-edit forms. You can 
integrate standard forms including op- 
tion dialogs, login screens with password 
support, splash and about forms, and 
Open Database Connectivity (ODBC) con- 
nect forms. AppWizard can even create a 
built-in Web browser for the project. 

If all this sounds too good to be true, 
it is. The wizard can create data forms, 
but they're pedestrian, data-control-style 
edit forms. While AppWizard creates a 
beautiful interface for your program, this 
interface is basically an empty shell. It 
enables some nice features, including 
splitter bars and memory for last-form 
positions, but you find comments for 
things to do scattered throughout the 
project. In fact, the instructions for com- 
pleting the project tell you that your first 
step should be to search the project for 
the comment "TO DO" and replace it 
with code that does something. More- 
over, most buttons or menu choices with- 
out enabling code contain a MsgBox call 
(see Figure 3). A MsgBox pops up saying 
"Properties code goes here!" if you click 
on the toolbar's Properties button. 

The sample database editor you cre- 
ate in this article will give you an indica- 
tion of the code changes required. The 
Explorer form created in the sample ap- 
plication contains 40 subroutines, 24 of 
which contain nothing but a To Do com- 
ment and a MsgBox. Several others, in- 
cluding the toolbar click subs, call menu 
items that contain only a To Do comment 
and MsgBox. 

Let's get down to the code. I'll take 



three tacks in explaining my Contact Ex- 
plorer sample app. First, I'll look at some 
of the worthwhile code that the 
AppWizard generates. You can use this 
code as generated in AppWizard pro- 
grams or steal it for incorporation in 
existing projects. I'll also demonstrate 
code and provide reusable subroutines 
that fill in some of the gaps in AppWizard's 
output. Finally, I'll extend the interface 
to demonstrate some of VB5's new tech- 
nologies, including OLE Drag-and-Drop. 

THE CONTACT EXPLORER SAMPLE APP 

Contact Explorer demonstrates a number 
of new VB5 features, including an Explorer- 
style interface to drill down on and display 
data. The database it supports contains 
four tables: Address, Phone, ContactType, 
and PhoneType. Address contains name 
and address information for each contact, 
as well as a ContactType field that links to 
the ContactType table. Phone is a child of 
Address, and can contain many phone 
records for each contact, including work, 
fax, cellular, and other types of phone num- 
bers. PhoneType describes the type of tele- 
phone number for each Phone record. 

There are a number of ways you can 
adapt the Explorer-style interface to 
browse a database such as this one. This 
sample uses an outline to display contact 
names from the Address table, and the 
app organizes the names in a tree hierar- 
chy by State and ContactType. When an 
individual tree node is clicked on, the app 
displays the phone number records for 
that node in the ListView pane, which is 
set to display items in a detail list by 
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Figure 3. VB5's AppWizard Creates "To Do" List. When the Application Wizard 
creates a menu choice or button for which it doesn 't supply functional code, it puts the 
comment "To Do" and a MsgBox call like this one in the appropriate Click event. 



default (see Figure 4). The user maintains 
records from a Properties dialog, which is 
called from the menu or from the Proper- 
ties button in the toolbar. 

Application Wizard's output includes 
some nice features. For example, it imple- 
ments help calls, requiring only that you 
set up and link a help file. Another nice, 
intriguing feature is that AppWizard code 
uses the registry to make the application 
remember its size and position the last 
time it ran. This is the kind of feature I 
always mean to add, but never quite get 
around to. AppWizard spares me from 
having to worry about it. 

AppWizard also implements a Most 
Recently Used (MRU) menu list. An MRU 
menu shows the user the last four items 
or projects the app used. For example, 
in the VB IDE, the File menu shows the 
last four projects opened. If you click 
on the menu item, you can quickly re- 
open a recently used project without 
using a dialog. AppWizard supports 
MRUs only partially. It puts blank (and 
invisible) place holders in the File 
menu, but it doesn't populate the list 
or maintain it. VB5's code generation 
contains a number of these kinds of 
holes. The sample app fills this one 
with a subroutine called SaveMRU (see 
Listing 1). The subroutine assumes you 
have a set of four blank (no caption) 
menu items in a menu control array 
called mnuFileMRU. If a file a user se- 
lects is already in the list, it should not 
be added to the list again, but pro- 
moted to the top position. This explains 
the nested loops in the routine. 



USING MRU LISTS 

The subroutine is called in Contact Ex- 
plorer to register an MRU when a node is 
touched in the Node_Click event, although 
you could just as easily configure it to 
save an item only after editing, or when- 
ever you wish, by placing the necessary 
code in the appropriate event: 

SaveMRU Node. Key. Me 



mnuFileBarMRU. Visible - True 

After SaveMRU registers the listings, 
you need to activate a selection from 
the menu. Do this by selecting the ap- 
propriate TreeView node from the menu 
array Click event. Adapt this code to 
suit your situation: 

Set tvTreeVi ew.Sel ectedltem - _ 
tvTreeVi ew. Nodes . Item( _ 
mnuFileMRU (Index) .Caption) 

tvTreeVi ew_NodeCl i ck 
tvTreeVi ew.Sel ectedltem 

Next, to place the last piece of the 
MRU puzzle, load MRU back into the 
menu the next time the application is 
started. You can accomplish this in the 
main form's Load event: 

For foo - To 3 

mnuFileMRU(foo). Caption - _ 
GetSetting(App. Title, _ 
"Settings". "MRU" & foo, "") 
If mnuFileMRU(foo). Caption > 
"" Then 

mnuFileMRU(foo). Visible - _ 
True 

mnuFileBarMRU. Visible - True 
End If 
Next foo 

Perhaps the biggest hole in VB5's Ex- 
plorer-style interface is that even when 
you ask for database support in the 
AppWizard, it doesn't provide it for the 
main window's TreeView and ListView 
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Figure 4. Up and Running. The running application includes a nice browser area on 
the left, then detailed phone number information on the right for the selected node. 
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controls. Instead, it adds database sup- 
port by creating a Tools menu and pro- 
viding calls to the primitive data-control- 
based edit forms that VB wizards typi- 
cally create. There really isn't any data- 
base support in the AppWizard-gener- 
ated interface — you need to add a good 
deal of extra code to implement the 
sample app's drill-down behaviors. But 
you can simplify the task of creating an 
Explorer-style database interface by us- 
ing reusable subroutines and standard, 
inline code. 

First you need to get the primary data 
items into the TreeView outline. You can 
accomplish this with LoadTreeNodes, a 
generic, TreeView data-loading subroutine 



VB5 



Public Sub SaveMRUtMruKey As _ 

String. Frm As Form) 
'this sub assumes that MRUs are 
'displayed in a menu array 
•mnuFileMRUO) 

Dim too As Integer, foobar As _ 
Integer 

'is this in the current list? 
For foo - To 3 

If Frm. mnuFileMRU(foo) .Caption _ 

- MruKey Then 

For foobar - foo To 1 Step - 1 
Frm.mnuFi 1 eMRIK 
foobar) .Caption 
- Frm.mnuFi 1 eMRU( _ 
foobar - 1). Caption 
Next foobar 

Frm. mnuFileMRU(O) .Caption _ 

- MruKey 
Exit Sub 
End If 
Next foo 
'fall through if MruKey not 
'found in current list 
'move old MRUs up 
For foo - 3 To 1 Step -1 
SaveSetting App. Title, _ 
"Settings". "MRU" & foo, 
Frm.mnuFi 1 eMRU(f oo - _ 
1 ) . Capti on 
Frm.mnuFi 1 eMRU(f oo) . Capti on _ 

- Frm.mnuFi 1 eMRU ( foo - 
1 ) .Caption 

Next foo 
'save new MRU 
SaveSetting App. Title, _ 

"Settings", "MRUO", MruKey 
Frm.mnuFi 1 eMRU( 0) . Capti on - 

MruKey 
'adjust visibility 
For foo - To 3 

If Frm.mnuFileMRUl 

foo) .Caption > "" Then 
Frm.mnuFi 1 eMRU( 

foo) .Visible - True 

End If 
Next foo 
End Sub 

Listing 1. Implement Most Recently 

Used File Menus. The Sni ipMRU subroutine 
implements Most Recently Used file menu 
functionality missing from code generated 
by AppWizard. 



T 



he Explorer-style form 
contains relatively few controls, 
and its elegant style is well-suited 
for drill-down database 
applications. 



VB5 

Public Sub LoadTreeNodes ( rs As Recordset, tvw As _ 
Control, Levels As Integer, DataArrayO As Long, _ 
DataField As String) 

ReDim PrevLevel ( Level s - 2) 

Dim foo As Integer, foobar As Integer. foo2 As Integer 
Dim NodePath As String, ParentNode As String 
Dim nodX As Node 
■ Add Node objects. 
Do Until rs.EOF 

For foo - To Levels - 2 

If PrevLevel (foo) <> rs(foo) Then 
PrevLevel (foo) - rs(foo) 
'force new path for lower levels 
For foobar - foo + 1 To Levels - 2 

PrevLevel (foobar) - "" 
Next foobar 

'create unique path for this level 
NodePath - "" 
For foobar - To foo 

NodePath - NodePath & "\" & PrevLevel (foobar) 
Next foobar 
'add the node 

If foo - Then 'root level 

Set nodX - tvw. Nodes. Add( . 
Else 

'set parentpath 

ParentNode - "" 

For foobar - To foo - 1 

ParentNode - ParentNode & "\" & PrevLevel (foobar) 

Next foobar 

Set nodX - tvw . Nodes . Add ( ParentNode . _ 

tvwChild, NodePath, PrevLevel (foo) , "closed") 
End If 

nodX . Expandedlmage - "open" 

' Open folder for expanded node, 
'set parent path for atomic children 
ParentNode - NodePath 
End If 
Next foo 

'load atomic level 
NodePath - "" 

For foobar - To Levels - 2 

NodePath - NodePath & "\" & PrevLevel (foobar) 
Next foobar 

NodePath - NodePath & "\" & rs(Levels - 1) 

Set nodX - tvw. Nodes .Add( ParentNode , tvwChild, _ 
NodePath, rs(Levels - 1). "leaf") 

ReDim Preserve DataArray(tvw. Nodes. Count) As Long 

DataArray (tvw. Nodes. Count) - rs(DataField) 

rs.MoveNext 
Loop 
End Sub 



NodePath. PrevLevel ( foo ) , "closed") 



Listing 2. Populate a TreeView Control. The LoadTreeNodes subroutine automatically 
populates a TreeView control from any recordset. Note that the routine assumes the 
records are ordered in the correct sequence for the outline drill-down, and that the fields 
corresponding to each outline level are selected first 
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(see Listing 2). This routine accepts as its 
parameters the recordset, the TreeView 
control to populate, the number of drill- 
able levels to use, a data array for storing 
a record ID for each atomic node (a node 
without children), and the field name for 
the data field that contains the ID. Later, 
you can use the ID to retrieve the full 
record and the child records of the node. 
The routine requires that fields be selected 
into the recordset in the fields' display 
order. In other words, select the parents 
first, then each generation of children. The 
recordset is ordered in the same fashion. 
LoadTreeNodes creates each node auto- 
matically, detects when a new parent node 
is required, and assigns a unique key to 
each node based on its parents and its 
place in the hierarchy. Note that the Node 
collection's Add method works quite dif- 
ferently from the Addltem method that 
many of us learned in VB3. 

PUT THE APP THROUGH ITS PACES 

Now it's time to put the routine to work. 
Start by configuring the TreeView and 
ListView controls in the form load, and call 
the data-loading routine, LoadAddressTree 
(see Listings 3 and 4). LoadAddressTree 
creates the SQL-based recordset, and then 
calls the LoadTreeNodes auto loader. The 
only task still remaining is to add an 
ImageList control to the project, with im- 
ages for the states "open," "closed," and 
"leaf." You now have a completely func- 
tional outline with a linked array of record 
IDs you can use for drilling down later. 

Speaking of drilling down, you also 
must add code if you want the ListView 
display to show the contact phone num- 
bers. An event called NodeClick is fired 
when a node is clicked on with the mouse 
or is landed on by keyboard navigation. 

VB5 



Set Treeview control properties - wrh 
tvTreeVi ew. ImageLi st - ImageListl 

' Initialize ImageList. 
tvTreeVi ew. Styl e - tvwTreel inesPl usMinusPictureText 

• Style 7 

tvTreeView. LineStyle = tvwRootLi nes ' Linestyle 1 
tvTreeVi ew. Nodes .CI ear 



You can create a recordset that contains 
the phone records from this event, and 
use it to populate the ListView control 
(see Listing 5). The way LoadTreeNodes 
creates unique node keys gives you a nice 
node path that is stored in the Node.Key 
property. The Node.Key property is dis- 



NodeClick event: 

tvTreeVi ew_NodeCl i ck _ 
tvTreeVi ew. Selected I tern 

This technique also comes in handy 
when you enable the toolbar. The arrow 



he AppWizard's instructions 
say your first step is to 
search the project for the 
comment 'To Do" and 
replace it with code that 
does something. 



played in the ListView header label. The 
phone number is placed in the Listltem's 
Value property, and additional informa- 
tion (phone number type, in this case) is 
placed in the Subltems that belong to the 
newly created Listltem object. 

However, there is one significant draw- 
back with the NodeClick event: it isn't 
always fired. Remember the mnuFileMRU 
event that selected the node by directly 
setting the Selectedltem property? It 
doesn't fire NodeClick. But you can ad- 
dress this problem by first setting the 
Selectedltem property for the Node col- 
lection, then passing the Node to the 



'open database - wrh 

Set gDb - OpenDatabase(App.Path & 

'load tree nodes - wrh 
ReDim Recordlds(O) As Long 
LoadAddressTree 



Mnit listview columns - wrh 

Set clmX - 1 vListView.Col umnHeaders . Add( ) 

clmX.Text = "Phone Number" 

Set clmX - lvL1stV1ew.ColumnHeaders.Add() 



'\testset.mdb") 



Listing 3. Configure the Form_Load Event. This code is from Contact Explorer's 
Form_Load event, and shows how the Tree View and ListView controls should be configured. 
It also contains code that calls the LoadAddressTree routine, which creates the Address 
recordset and calls LoadTreeNode to automatically populate the Tree View Node collection. 



keys in the toolbar are intended to move 
you forward and back through the outline 
lists. But if you press them, you get an 
AppWizard MsgBox: "Forward code goes 
here!" To work around this, you must add 
code to manually force the selection to 
scroll forward and backward (see Listing 
6). Note that you must indirectly address 
the node by its Index. 

You should also make the properties 
button call the Address/Phone Number 
edit form when you enable the toolbar. 
The properties button created by 
AppWizard calls the Properties menu item, 
which once again contains just a MsgBox 
call. By changing the code in the Click 
event, you can enable both the menu item 
and the button with one stroke: 

Private Sub mnuFi 1 eProperties_Cl i ckO 
f rmAddress . prpEdi tld - _ 
Record I ds( tvTreeVi ew. 
Sel ectedltem. Index) 
f rmAddress . Show vbModal , Me 
LoadAddressTree 
End Sub 

Just for fun, I created an edit form 
using the data wizard, then modified the 
form so I could force it to show a selected 
record when loaded. But I can't recom- 
mend this approach because the data 
wizard form, while interesting, is not so- 
phisticated. The form uses the data con- 
trol, and requires text-box entry for all 
fields except phone numbers, which you 
enter in a data-bound grid. On the other 
hand, the technique of including child 
table-entry areas on the same form might 
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be interesting to some readers. 

These changes give the sample app basic database-brows- 
ing and database-editing capabilities in an Explorer-style 
interface. However, it would be nice if the app could also 
share address data. If it did, you could easily paste addresses 
into a letter or other document. 



VB5 

Private Sub LoadAddressTreet ) 

'entire sub - wrh 

Dim rs As Recordset 

Dim foo As Integer, SqlStr As String 

Dim nodX As Node 

Dim PrevState As String, PrevType As String 

tvTreeView. Nodes. Clear 

SqlStr - "Select state, TypeName, _ 
( LastName & ' . ' & 

FirstName) AS FullName, Recordld, " & _ 
"Addressl, Address2, City. State, Zip " & _ 
"From Address inner join ContactType ON 
Address. ContactType - ContactType. Typeld " & _ 
"Order By State, TypeName, LastName & ', ' & _ 
Fi rstName" 

Set rs - gDb.OpenRecordsettSqlStr, dbOpenSnapshot ) 

'Call automatic treeview data loading subroutine 
LoadTreeNodes rs:-rs, tvw:-tvTreeVi ew, Levels:-3, _ 
Da taAr ray .--Record Ids ( ), DataField:=" Recordld" 

rs . CI ose 



End Sub 



Listing 4. Populate TreeView. The LoadAddressTree routine 
creates a recordset that properly populates TreeView, then calls 
LoadTreeNodes to do the population. Note that the LastName and 
FirstName fields are concatenated with a comma delimiter for a 
nicer display. 



VB5 



Private Sub tvTreeVi ew_NodeCl i ck( ByVal Node As _ 

Comctl Lib. Node) 
Dim rs As Recordset 
Dim itmX As Listltem 
Dim foo As Integer 

1 vLi stVi ew. Li st I terns . CI ear 
If RecordIds(Node. Index) > Then 
'load phone numbers 

IblTitle(l) - "Phone Numbers: " & Node. Key 

Set rs - gDb . OpenRecordset ( "sel ect * from Phones 

where Addressld - " & Recordldsf Node. Index) , _ 

dbOpenSnapshot) 
Do Until rs.EOF 

Set itmX - 1 vLi stVi ew. Li stltems . Add( ) 

itmX.Text - rslPhoneNum 

itmX.Subltems(l) - rslPhoneType 

rs .MoveNext 
Loop 

rs .CI ose 

'save to Most Recently Used (MRU) menu, settings 
SaveMRU Node. Key, Me 
mnuFileBarMRU. Visible - True 

End If 



,- ■ . . .. . 



Listing 5. Get the 411 for a Phone Record. The NodeClick event 
is used to display the drill-down phone number list associated with 
each contact address record. 



You need look no further than one of VB5's coolest new 
features to implement this: OLE Drag-and-Drop. OLE Drag-and- 
Drop (OLEDD), which most VB controls now support, will 
change the way many of us write interfaces . OLEDD lets you drag 
any type of data to or from a wide variety of sources automati- 
cally — including applications outside your application. It re- 
quires only a couple steps to enable the sample app to drag a 
name and address from the TreeView control to Word (see 
Listing 7). First, set TreeView's OLEDragMode property to "au- 
tomatic" in the design-time property window. Next, set the 
allowed effects to "copy" or "none" in the OLEStartDrag event. 
Now, in the OLESetData event, add the code to retrieve the 



w 



hile AppWizard 
creates a beautiful 
interface for your 
program, this 
interface is basically 
an empty shell. 



VB5 

Private Sub tbTool Ba r_ButtonCl i ck( By Va 1 Button As 
Comctl Lib. Button) 

Select Case Button. Key 
Case "Back" 
'To Do 

'MsgBox "Back Code goes here!" 



'change node selection - wrh 
If tvTreeVi ew. Sel ectedltem. Index > 1 Then 
Set tvTreeView.Selectedltem - 
tvTreeView. Nodes( _ 
tvTreeView. Sel ectedltem. Index - 1) 
tvTreeVi ew_NodeCl i ck tvTreeVi ew. Sel ectedltem 
End If 

Case "Forward" 
'To Do 

'MsgBox "Forward Code goes here!" 



'change node selection - wrh 
If tvTreeView. Sel ectedltem. Index < _ 
tvTreeVi ew. Nodes . Count Then 
Set tvTreeView.Selectedltem - 
tvTreeView. Nodes( _ 
tvTreeVi ew. Sel ectedltem. Index + 1) 
tvTreeVi ew_NodeCl ick tvTreeVi ew. Sel ect edit 
End If 



em 



Listing 6. Move Forward and Back. The code in the toolbar 
ButtonClick event causes the TreeView selection to move forward 
or back. 
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Private Sub tvTree\h'ew_OLEStartDrag(Data As _ 
Comctl Lib.DataObject, Al 1 owedEf f ects As Long) 

Al 1 owedEffects - vbDropEf f ectCopy + vbDropEf f ectNone 

End Sub 

Private Sub tvTreeView_OLESetData(Data As _ 

Comctl Lib.DataObject, OataFormat As Integer) 
Dim DragStr As String, rs As Recordset 

If RecordIds( tvTreeVi ew. Sel ectedltem. Index) > Then 
Set rs - gDb.OpenRecordsetC'SELECT * FROM Address _ 
WHERE Recordld - " & RecordIds( 
tvTreeView.Sel ectedltem. Index), dbOpenSnapshot) 
DragStr - rslfirstname & " " & rslLastname & vbCrLf 
& rsladdressl & vbCrLf & rslcity & ". " & _ 
rslState & " " & rslzip 
rs. Close 
End If 
'Data .Clear 

Data.SetData DragStr, vbCFText 




Listing 7. OLE Drag-and-Drop Will Change Your Life. With a 
simple property setting and a few lines of code, you can drop data 
on almost any VB control, as well as OLE-supporting applications 
such as Word and Excel. This might change your life, or at least the 
way you code. 



address record and concatenate the fields together into a 
formatted address. 

While you could place all the data-retrieval and formatting 
code into StartDrag, this method requires that you pull the data 
only when the target control indicates it's ready for it. If you 
abort the drag-and-drop, the retrieval query never even ex- 
ecutes. Target objects can even return information on how they 
would like to see the passed data formatted. Features such as 
the AppWizard and OLE Drag-and-Drop will change the way 
many of us write interfaces. M 



Code Online 



You can find all the code published in this issue of Getting Started 
with Visual Basic on The Development Exchange (DevX) at http:// 
www.windx.com. For details, please see "Get Extra Code in DevX's 
Premier Club" in the Table of Contents. 

Not Just Another Pretty Interface 
Locator+ Codes 

Listings for the entire issue, plus the TreeView and ListView controls; 
the data-loading routine, LoadAddressTree; the toolbar's ButtonClick 
event, which lets you manually force a selection to scroll forward and 
backward; a TestGen utility that lets you create sample data so you 
can test against a database (free Registered Level): GS298 
Listings for this article only, plus the files described above (subscriber 
Premier Level): WHGS298 



Are You Learning Visual Basic Backwards? 

Find out in a new article by Daniel Appleman at www.desaware.com. At Desaware, we specialize in products 
and information that share a single theme - to help Visual Basic programmers become great programmers) take 
advantages of the capabilities of VB, and even go beyond those capabilities when necessary. 
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with auto-update capability. Eliminate 
component incompatibilities and conflicts. 

Ct 

Eas) 
files 




trageTools 

Easy registry programming. Build complex 
files and compound documents using VB. 
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Dan Appleman, author of the 
Visual Basic Programmer's Guide 
to the Win32 API and Developing 
ActiveX Components with Visual 
Basic 5.0, is also president of 
Desaware. From Windows 
programming, to object oriented 
techniques - these books will help 
turn the newest VB programmer 
into an expert faster than you 
would believe. 



Our web site, www.desaware.com, is not 
the largest VB related web site by a long 
shot. But when it comes to quality, you'll 
find none better. Our articles are designed 
to really teach, not just overwhelm you 
with obscure tips. Articles such as: 

Are you learning Visual Basic Backwards? 
Summertime Blues... 

From Novice to Guru - How to Learn VB.... 



Find these articles and' more at: 

www.desa wa r e.co 

Desaware 

1100 E. Hamilton Ave. #4 
Campbell, CA 95008 
(408) 377-4770 fax: (408) 371-3530. 
Email: support@desaware.com 
www. desaware .com 
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Getting Started with 



SQL Server 



by Ted Pattison 



Learn the fastest, 
easiest way to build 
client/server database 
applications — and get 
the speed your users 
need as well. 

Are you outgrowing your 
Microsoft Jet multiuser data- 
base? If you've got as few as 20 
users accessing it, you know 
the answer. The next question: What prod- 
uct can you turn to that will provide the 
most headroom for the least investment 
in retraining? The most likely candidate is 
a server-side database-management sys- 
tem (DBMS) such as Microsoft SQL Server. 
In these pages, I'll show you why this is 
true, and how you can make SQL Server 

Ted Pattison is the owner of Subliminal 
Systems, a consulting and mentoring firm in 
Raleigh, North Carolina (http:// 
www.sublimnl.com). He works with VB, 
C++, Java, and COM to create client/server 
and three-tier database systems and is writ- 
inga book for Microsoft Press titled Intranet 
Database Programming Using Visual J++. 
Ted also conducts intensive 1 2-hour-a-day 
"guerrilla' 'trainingclnsses atDevelopMentor 
(http://www.develop.com) for program- 
mers in search of VB/COM nirvana. Reach 
him at TedP@develop.com. 



file, creating another performance bottle- 
neck. If you want your app to scale to a large 
database audience, you need a server-side 
DBMS architecture. 

A server-side database engine can co- 
ordinate database access among your us- 
ers. This solves many of those desktop 
DBMS scalability problems. A DBMS run- 
ning as a server-side process conducts all 
file I/O locally. It can provide an efficient 
locking architecture by caching locking 
information in memory, rather than writ- 
ing such information to disk. A server-side 
DBMS can also quickly service client re- 
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work for you. 

You can evaluate a DBMS in terms of 
the throughput, concurrency, and con- 
sistency it delivers. Throughput measures 
how much work a DBMS can do in a given 
amount of time. Concurrency measures a 
system's ability to deliver database ac- 
cess to multiple client apps at the same 
time. And consistency measures a 
system's ability to keep the data in a 
consistent state while multiple users are 
concurrently reading and writing to it. 

Different DBMS architectures yield sig- 
nificantly different results with respect to 
these three important 
benchmarks. You'll also 
find consistent scalabil- 
ity limitations with desk- 
top DBMS-based sys- 
tems such as Jet. You 
just can't get the speed 
you need from multiple 
database engines de- 
ployed across anetwork. 
Every client process on 
a multiuser system is si- 
multaneously reading 
and writing to a single 
database file on a net- 
work. Remote file access 
across a network always 
moves more slowly than 
local file input/output (1/ 
0). And the file server's 
operating system (OS) 
must wrestle with multi- 
user file contention. In Figure 1 . Power Steering for SQL Server. You and your 
addition, the OSmust co- database administrator can both use the SQL Enterprise Manager 
ordinate different file I/O to communicate with the system. You can use this tool to create, 
requests from multiple view, and modify databases, tables, views, and stored 
remote clients on a single procedures. 
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Figure 2. Tables at a Glance. The table builder dialog provided by the Enterprise 
Manager allows you to see the definition of an existing table. 



quests by caching pages of data in memory. 
These major architectural differences en- 
able client/server systems to provide far 
more throughput, concurrency, and con- 
sistency than Jet, FoxPro, Paradox, or any 
other desktop DBMS. 

A database engine reads and writes 
data in the form of pages of records from 
the system data store. A centralized data- 
base engine can cache data in memory, 
letting the engine service client requests 
without file I/O. So client apps might not 
need to wait for changes to be written to 
disk. This blows away a major throughput 
bottleneck in desktop databases. Modi- 
fied data pages are written to disk as a 
lower-priority background task. 

However, if data pages are written to 
disk as a background task, the system 
needs a way to recover all transactions 
after a system failure. A client/server 
DBMS uses a transaction log to record 
data modifications as they occur. The 
system writes a low-level byte stream to 
the transaction log. The stream repre- 
sents the physical changes to the actual 
data pages in memory. The system flushes 
data pages to disk as a background task 
while maintaining the transaction log in 
real time. 

SQL DATABASES HAVE A LOT IN COMMON 

Some of the most popular client/server 
DBMSs come from Oracle, Microsoft, 
Sybase, and Informix. When examining 
such systems, you can see a similar high- 
level architecture. Each system uses a 
transaction log and a robust security 
model, and each can host multiple data- 
bases on a single server. Additionally, 
each provides five common database 
objects: 

• Tables and indexes are data structures 
for storing the system's data in a rela- 
tional format (for example, rows and col- 
umns). Indexes define complementary 
data structures that provide quicker ac- 
cess to data within a table. 

• DDL (Data Definition Language) ob- 
jects are used to create a greater degree of 
data integrity within a table definition. To 
fine-tune what it means to be a valid data 
entry, DBMSs use DDL objects such as 
user-defined data types, rules, defaults, 
and constraints. 

• Views are row-retrieving SQL state- 
ments, stored on the server. Client appli- 
cations access them through a logical 
name. You can use them to select subsets 
of rows and columns from a single table, 
or to return the results of complicated, 
multitable joins. 

• Stored procedures are preparsed, 
precompiled SQL scripts, which are 
cached and executed on the server. Client 
applications access stored procedures, 
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such as views, through a logical name. 
Unlike views, stored procedures can de- 
fine input and output parameters and 
contain control-of-flow programming 
logic. Developers often use them to write 
transactions and encapsulate business 
logic on the server. 

• Triggers are special types of stored pro- 
cedures, which are executed automati- 
cally by the system in response to data- 
modification activity. Each trigger is an 
event handler for one specific table. 

DBMS vendors put their own spin on 
these database objects. As aconsequence, 
each vendor's SQL dialect differs irritat- 
ingly from the rest. For example, Oracle's 
SQL differs so much from Microsoft SQL 
Server's SQL that you'll find it slow going 
to port stored procedures fromonetothe 
other. Each vendor also provides a unique 
set of visual tools to assist in database 
development and administration. So, 
when you begin working with a given 
DBMS, plan to learn its unique SQL dialect 
and suite of visual tools. You also need to 
learn a few administrative chores, al- 
though after deployment most of those 
will be managed by a database system 
administrator (DBA). 

Now I'll turn to helping you get up to 
speed on client/server database applica- 
tion development using Microsoft SQL 
Server, one of the more popular DBMS 
products for VB developers. Along the 
way, you'll get the essentials of creating 
and testing any kind of SQL database in 
VB's development environment. 

GET GOING WITH MICROSOFT SQL SERVER 

Microsoft SQL Server is a multithreaded 
client/server DBMS. SQL Server runs on 
Windows NT as part of the BackOffice 
suite. You need to use NT Server in the 
production environment, but you can run 
SQL Server on NT workstations during 
development. 
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To install SQL Server in the develop- 
ment environment, accept the default 
values. Installing it in the production en- 
vironment requires more in-depth knowl- 
edge of SQL Server administration issues, 
but most likely that's the DBA's concern. 
You simply want to create and use a few 
SQL Server databases. Once installation 
is complete, start up the system and give 
it a test drive. 

SQL Server runs as an NT service for 
tighter integration with the operating sys- 
tem. You can configure the service to 
start automatically, or you can start and 
stop the service manually, using the Ser- 
vice Manager utility. You can find this 
utility in SQL Server's program group in 
the Start menu. SQL Server also employs 
a second service: SQL Executive. To cre- 
ate and administer databases on the 
server, you must start both the SQL Ex- 
ecutive service and the SQL Server ser- 
vice. Use the Service Manager to start 
both of these services if they aren't al- 
ready running. 

Any tour of SQL Server begins by 
launching the Enterprise Manager. The 
first time you run this application, regis- 
ter each SQL Server computer you want 
to access. Supply a valid login account 
name and password to register each ma- 
chine running SQL Server. When SQL 
Server is installed, the system automati- 
cally creates a login account under the 
name "sa" (for system administrator). The 
sa account plays the role of God in a SQL 
Server system. This login account has no 
limitations or restrictions. Of course, in a 
production environment you keep this 
password secret, but in a development 
environment I usually leave the password 
set at its original value: an empty string. 

After you register your server, you'll 
see a set of icons in the treeview on the 
left side of the Enterprise Manager. These 
icons represent a server and a hierarchi- 
cal collection of databases and database 
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Queries. #1 SELECT' 



SELECT » 
FROM authors 
WHERE state = 
ORDER BY zip 



Figure 3. Write a SQL Query. The SQL Query Tool provided by the Enterprise Manager 
allows you to submit SQL statements to the database engine. Data returned from a SELECT 
query is displayed in the Results tab. Here 's a sample SQL statementyou can use to retrieve 
data from the pubs database. 
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Figure 4. SQL Database Application Development from 30,000 Feet. Developing a 
database application with SQL Server isn 't overwhelming as long as you break it into bite- 
sized chunks. 



objects. Right-clicking on the icon for the 
server machine brings up a dialog that 
displays available system-wide configu- 
ration options. This dialog also lets you 
change configuration settings, such as 
the maximum number of available user 
connections and amount of memory used 
by the system. 

The Enterprise Manager lets you ex- 
amine the contents of each database (see 
Figure 1). In your new system you should 
find five databases: master, model, MSDB, 
tempdb, and pubs: 

• The master database catalogs impor- 
tant system-wide configuration data. It 
serves as the system's control center. 

• The model database serves as a tem- 
plate when new databases are created. 

• MSDB holds configuration information 
used by the system to automate tasks 
such as backing up the database and send- 



ing alerts to administrators. 

• The system uses tempdb as a temporary 
workplace for storing stored procedures 
or intermediary results during a query. 
Tempdb is initially allocated 2 MB during 
installation, but is frequently given more 
space to accommodate the needs of a 
particular system. You can place tempdb 
in RAM rather than writing it to disk. Doing 
this can increase throughput for systems 
that run lots of complicated queries. 

• Finally, pubs provides a sample data- 
base for learning SQL Server. Expand the 
pubs database icon in the treeview control 
of Enterprise Manger to drill down on the 
contents of pubs, including the objects, 
users, and groups of the database. Expand 
the "Objects" icon to see a set of folder 
icons for each type of database object. 
Then expand the "Tables" icon and double- 
click on a given table. Doing this produces 
a dialog that displays the table's definition 



(see Figure 2). Double-clicking on a view 
causes the Enterprise Manager to display 
a dialog showing the SQL statement used 
to create the view. Each database object 
has a corresponding dialog to facilitate 
creation and modification. 

RUN YOUR DATABASE WITH T-SQL 

SQL Server is controlled by Transact-SQL 
(T-SQL). This dialect of the SQL language 
lets clients insert, update, delete, and query 
records from the tables in a SQL Server 
database. Client applications can also cre- 
ate and administer database objects with 
Transact-SQL. You can submit a SQL state- 
ment to the database engine as an indi- 
vidual statement, a batch, or a script. 

A SQL statement represents a single 
instruction for the database engine. A 
batch can contain several SQL statements. 
When a batch is submitted, it's parsed 
and executed as a whole. If any SQL state- 
ment within a batch contains a syntax 
error, the entire batch is rejected. A script 
is typically stored as a simple text file with 
an SQL extension, as in MyScript.sql. A 
script can contain several batches, and 
scripts can terminate batches using the 
SQL keyword GO. 

You can use scripts to create data- 
bases on production systems. After you 
create a database in the development 
environment, select Generate SQL Scripts 
from the Object menu to use SQL Server's 
reverse-engineering capabilities. The En- 
terprise Manager creates a single script 
that can re-create all your database ob- 
jects on a production system. 

You can directly execute a SQL state- 
ment by using the SQL Query Tool under 
the Tools menu in the SQL Enterprise Man- 
ager (see Figure 3). To submit any SQL 
statement from the SQL Query Tool, press 
Ctrl-E or select Execute from the Query 
menu. The rows resulting from the query 
are shown in the Results tab. The SQL 
Query Tool also lets you save and load SQL 
statements and scripts from disk. 

You can build any database object by 
writing the needed SQL statements, but it's 
often quicker to use visual tools instead. 
You'll find commands under the Manage 
menu that present visual dialogs to assist 
you in building objects such as tables, in- 
dexes, views, and stored procedures. 

Nowyou're ready to create a new data- 
base from scratch. Before you can create 
new tables, views, and stored procedures, 
you'll need to create a few devices and a 
new database (see Figure 4). Start by 
creating the files that will store your data. 

SQL Server stores persistent data in 
files called devices. Before you create a 
new database, you must create one or 
more devices to store your data in. A 
device is a proprietary file format that 
SQL Server uses for all file I/O. SQL Server 
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Use triggers to validate data or 
cascade changes to other places 
in the database. 



uses the master database to associate 
regions of devices with certain databases. 
Create devices in Transact-SQL with the 
DISK INIT statement and specify the size 
of a device with the number of 2K pages. 
I recommend creating databases in incre- 
ments of 1 MB. Each device is also as- 
signed a virtual device number, which is 
used by the system as a unique identifier. 

KEEP YOUR DEVICES HIDDEN 

Users and client applications are never 
aware of devices, which interact only with 
databases. Devices serve as an abstrac- 
tion to hide storage concerns from users 
and client-application developers. The 
DBA is responsible for creating and allo- 
cating storage with devices in the produc- 
tion environment and is also supposed to 
ensure the database always has free disk 
space to write to. If either the database or 
the transaction log becomes full, the data- 
base becomes read-only. A proactive DBA 
makes sure the database and transaction 
log always have room to grow. 

In the production environment, you'll 
often create one device for a database 
and a second device for its transaction 
log. Then you can back up the database 
incrementally. You can also enhance 



throughput by parking these two devices 
on separate disks. Doing so matters more 
in the production environment, but it's 
possible on your development machine 
as well. You can create devices by using 
the Enterprise Manager or submitting 
Transact-SQL statements: 

DISK INIT 

NAME - •MyDevice 1 . 

PHYSNAME - 'C:\MyDir\MyDevice.dat', 

VDEVNO - 10, 

SIZE - 32768 
DISK INIT 

NAME - ' MyLogDevi ce ' , 

PHYSNAME - 

'C:\MyDir\Myl_ogDevice.dat' , 

VDEVNO - 11. 

SIZE - 8192 



Once you create one or more devices, 
you can create a new database, either by 
using the visual tools in the Enterprise 
Manager or by using a SQL statement: 

CREATE DATABASE MyDatabase 
ON MyDevice - 64 
LOG ON MyLogDevice - 16 

In the development environment, you'll 
often discard the transaction log. Other- 
wise, you have to empty the transaction 
log manually. I prefer to redirect the trans- 
action log into the bit bucket (a digital 
garbage can) by setting the "Truncate Log 
On Checkpoint" database property to 
True. You can invoke a dialog for viewing 
and editing database properties by 
double-clicking on the new database icon 
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Figure 5. Semiautomatic Table Building. The table builder allows you to create new 
table definitions quickly. It features an extended view that lets you specify constraints in 
order to create a self-maintaining primary key. 



in the Enterprise Manager's treeview. 

Creating a new database gives you a 
blank canvas . You can now begin building 
your database application by creating 
database objects. You can create any da- 
tabase object by submitting the proper 
SQL statement to the database engine. If 
you're unfamiliar with SQL, use the Enter- 
prise Manager's visual tools. 

BUILD YOUR TABLES, INDEXES, AND DDLS 

Tables represent the data structures used 
to store your data. When you define a 
table, give it a name and define a set of 
columns. Each column needs a name and a 
data type. SQL Server provides 1 9 different 
data types. You can use SQL Books Online 
to see a list of these system-supplied data 
types. You can also enhance such data 
types to create user-defined ones. This 
Transact-SQL demonstrates creating a 
user-defined data type, table, and index: 

EXEC sp_addtype typePhone, 'char(12)' 

CREATE TABLE Customers ( 

ID int NOT NULL. 

FirstName varchar(20) NOT NULL, 
LastName varchar(40) NOT NULL, 
Phone typePhone NULL 

) 

CREATE INDEX CustomersPK 
ON Customers( ID) 

You can create the same object without 
SQL coding through the Enterprise 
Manager's dialogs. Use the Manage menu to 
invoke a dialog for any type of database 
object. First, create the user-defined data 
types you need. Next, create your tables, 
using the data types you've created or those 



supplied by SQL Server. Give each column 
a name, data type, size, and default value, if 
required. Only check NULL for columns 
that should be able to accept null values. 

After you create a table, you can define 
one or more indexes for it. Use indexes to 
speed up data retrieval. Define a unique 
index on the column or columns that 
make up your table's primary key. This 
index guarantees that key values are never 
duplicated between rows. You can also 
create an index for any other column or 
group of columns. But weigh the retrieval 
benefits against the performance cost in- 
dexes pose during data modification. Each 
index created for a table impacts perfor- 
mance on data modification activity, such 
as inserts, updates, and deletes. 

You can also create additional DLL 
objects, such as rules and defaults. A rule 
is an integrity object that lets you define 
a legal pool of values. Rules enforce data 
integrity by defining a range, a value list, 
or pattern-matching scheme. Defaults 
provide an initial column value when the 
user doesn't supply one during an INSERT 
operation. You must bind both rules and 
defaults before using them. Bind them to 
either a user-defined type or a table col- 
umn. You'll be able to create tables more 
easily with user-defined types that already 
have rules and defaults bound to them. 

Constraints have been part of the ANSI 
SQL standard for quite a while, but SQL 
Server didn't support them until version 
6.0. Overlapping the functionality of rules 
and defaults, constraints let you add data 
integrity requirements directly into a table 
definition. You can extend the Customers 
table definition I showed you earlier by 



using a few constraints. For example, you 
can use the visual table builder to add a 
default value and a self-maintaining pri- 
mary key (see Figure 5) . The visual builder 
will produce this SQL: 

CREATE TABLE Customers ( 

ID int I DENTITY ( 1 , 1) 

NOT NULL , 
FirstName varchar (35) 

NOT NULL , 
LastName varchar (45) 

NOT NULL , 
Phone varchar (35) 

NOT NULL 

CONSTRAINT MyDefault DEFAULT 

( ' Unknown ' ) , 
CreditCard varchar (35) 

NOT NULL , 
CONSTRAINT MyPrimaryKey PRIMARY KEY 

NONCLUSTERED (ID) 

) 

A default constraint lets you assign a 
default value to a specific column. Use the 
identity constraint to create an automatic 
key value for each new record. The sys- 
tem automatically generates a unique in- 
teger for this column, removing responsi- 
bility for creating a unique record key 
from client apps. When you create this 
type of constraint, you can set both the 
seed value and the increment value. The 
primary key constraint adds a unique 
index to the table and marks the appro- 
priate column(s) as the primary key. 

To go beyond these table design basics, 
you need to learn more about what you can 
do with DDL objects and optimization 
through the proper use of indexes. How- 
ever, at this point you know enough to build 
simple tables. Building simple tables lets 
you start adding and retrieving records. 
You can also start to create views and 
stored procedures that use these new tables . 

VIEW DATABASES, STORED PROCEDURES 

Views let you look at your database. These 
predefined, row-retrieving SQL state- 
ments are assigned a logical name. A cli- 
ent app can use a view as if it were a table. 
The app accomplishes this by submitting 
a SQL statement using the view's logical 
name instead of a table name. In most 
cases, client apps can't tell the difference 
between views and tables. This enables 
the database designer to create views 
that hide the complexity of a database 
design. It also relieves developers of cli- 
ent apps from having to write compli- 
cated SQL statements. For instance, sup- 
pose you create a view: 

CREATE VIEW CustomerPhoneLi st AS 
SELECT 'Name' - LastName + 

' , ' + 

Fi rstName , 
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Phone 
FROM Customers 
WHERE Phone <> 'Unknown' 

A client application can access this 
view with two lines of SQL: 

SELECT * 

FROM CustomerPhoneList 

Views simplify the user's perception 
of the data model. Writing complicated 
joins and aggregate queries requires a 
significant level of SQL expertise. Many 
companies have their best SQL writers 
create views on the server, so other users 
and developers can leverage this work. 
For example, you can create a view that 
joins two tables together: 

CREATE VIEW Customerlnvoi ces AS 
SELECT Customers. ID, 

Customers . Last Name , 

Invoi ces . Date , 

Invoi ces .Amount 
FROM Customers, Invoices 
WHERE Customers. ID - 
Invoi ces . Customer ID 

Views have limitations, though. You 
can use a view only to create SELECT 
statements that return a set of rows and 
columns. Views can't contain ORDER BY 
statements. You can work around this 
limitation by placing the ORDER BY clause 
in the SQL statement that calls the view. 
You can use views only for inserting, up- 
dating, and deleting records as long as 
modifications affect only a single table. 

Once you master views, you can tackle 
the far more powerful and flexible stored 
procedures. Like views, stored proce- 
dures are predefined SQL statements with 
a logical name that live on the server. 
Unlike views, stored procedures aren't 
limited to asingle SELECT statement. Each 
stored procedure can define multiple 
statements for retrieving and modifying 
data. And, you can define input param- 
eters, output parameters, and return val- 
ues. You can also add control-of-flow pro- 
gramming constructs that let you encap- 
sulate business logic in predefined trans- 
actions on the server. Moreover, a data- 
base developer can drop and re-create a 
stored procedure to change its logic with- 
out affecting client applications. 

Because you can define input and out- 
put parameters, you can enable system 
and client apps to exchange data easily. 
Stored procedures can also raise errors 
and send messages to client apps. You 
can define a stored procedure with a few 
parameters in a few lines of SQL: 

CREATE PROCEDURE AddCustomer 
OFirstName varchar(35). 
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(SLastName varchar(45), 
@Phone varchar(35), 
OCreditCard varchar(35) 

AS 

INSERT 

INTO Customers ( FirstName, 
LastName, 
Phone, 
CreditCard) 
VALUES ( SFirstName, 
@LastName , 
@Phone , 
©CreditCard) 

A client application would call the 
stored procedure like this: 



AddCustomer ' Fred ' , 
'Hayes ' , 
•555-1212' , 
'7865-34882-34' 

Stored procedures can turbocharge 
system throughput. A stored procedure 
is parsed and normalized when it's cre- 
ated. The first time a stored procedure is 
run, it's optimized, compiled into ma- 
chine language, and loaded into a proce- 
dure cache in the system. The second 
time a client app calls a stored proce- 
dure, it's already in an executable state. 
This caching technique yields far greater 
performance than submitting SQL state- 
ments directly from client apps. Any raw 
SQL statement submitted to the system 
must go through the parsing, normaliza- 
tion, compilation, and loading phase for 
each execution. 

SET UP TRIGGERS AS TRIPWIRES 

For little emergencies you can provide a 
trigger, a special type of stored proce- 
dure. Like other stored procedures, you 
use Transact-SQL to create triggers, which 
can contain control-of-flow programming. 
Unlike ordinary stored procedures, trig- 
gers are automatically fired by the system 
when data is modified. Each table can 
define an insert trigger, an update trigger, 
and/or a delete trigger. For example, the 
insertion of a row into a table executes 
the insert trigger. 

You can use triggers to validate data or 
cascade changes to other places inside the 
database. You can also use triggers to send 
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alerts and messages to administrators and 
users. Triggers are never explicitly called 
by client apps; they work behind the scenes. 
Note, however, that triggers are no substi- 
tute for doing data validation on the client 
side — you should use them as an inner 
defense to ensure database integrity. 

You also need to manage system secu- 
rity. Before a client app can access your 
database objects, you must grant permis- 
sions to whatever user account it uses. 
When you're starting an app in the develop- 
ment environment, you can use the "sa" 
account when writing client apps. In later 
stages of testing, though, assign permis- 
sions to realistic user accounts to make 



sure they can get at the data as well. Read 
the "Security" chapter in the Administrator's 
Companion of SQL Books Online for the 
background information you need. 

Finally, when you create a client app, 
you need to decide on a data-access strat- 
egy. Microsoft presently offers many dif- 
ferent APIs for accessing datain SQLServer. 
You face so many choices (ODBC, DAO, 
RDO, and ADO) that most developers are 
confused about which database API to use 
for a particular app. The best choices for 
accessing SQL Server from Visual Basic 
are RDO and ADO. RDO is fairly mature and 
gives you the control you need over things 
such as output parameters, error mes- 
sages, and asynchronous execution. ADO 
is not quite as mature, but is more strate- 
gic in Microsoft's eyes. There are argu- 
ments for using the other techniques as 
well. Every choice involves trade-offs in 
flexibility, performance, ease-of-use — and 
developer expertise. 

Now, you should be ready to begin 
developing client/server database apps. I 
think you'll find it pretty easy to use 
Microsoft SQL Server to create your first 
set of tables, views, and stored proce- 
dures. After a few months, you should be 
able to write efficient stored procedures 
containing complicated business trans- 
actions. Just think of Transact-SQL as 
another programming language. Ap- 
proach it just as you did VB. The more you 
use SQL, the more expressive and fluent 
you'll become. Proficiency with this lan- 
guage will certainly make you more valu- 
able in client/server development. SI 
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Youll find consistent scalability 
limitations with desktop 
DBMS-based systems. 
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Get the Scoop on 



Internet Solutions 



by Brad Wist 



Discover the many 
ways you can take 
advantage of the 
Internet technology in 
your Visual Basic apps. 



Visual Basic can interact with 
the Internet in many ways. But 
how do you know which ap- 
proach or which method is 
right for a given situation? It's hard 
enough keeping the different options 
straight in my own head, much less being 
able to determine which approach is best 
for an application. 

In this article, I'll discuss and demon- 
strate a number of these techniques , while 
providing some sample code and helpful 
information. This article is meant to pro- 
vide you with a starting point in exploring 
these techniques. Although I will often 
make reference to the Internet during this 
article, the techniques and code also ap- 

Brad Wist is a senior applications developer 
at WANG 's Network Integration and Consult- 
ing division (http:// www.paradigms.com ). 
He is a Microsoft Certified Solutions Devel- 
oper (MCSD) and Microsoft Certified Trainer 
(MCT) in Visual Basic and Visual InterDev. 
He provides consulting services for client/ 
server and Internet/Web applications using 
a broad range of Microsoft's development 
suite. Reach him at brad.wist@wang.com. 
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ply to intranet systems. A Web server or 
FTP server is required for some of the 
techniques discussed; for others, only a 
TCP/IP network is required. For more in- 
depth coverage of these techniques, see 
the sidebar, "For Further Reading." 

I find it helpful to categorize the differ- 
ent techniques into three categories, 
based on the types of applications and 
their level of interaction with the Internet 
(see Table 1). First, Internet-enabled ap- 
plications make a fairly passive use of the 
Internet. They may use the Internet to 
provide some supplemental information 
to the user. If a connection to the Internet 
does exist, you can still get all core func- 
tionality from the application. 

Second, Internet- 
aware applications make 
an active use of the 
Internet. The Internet is 
used to provide some 
key services to the ap- 
plication. If the connec- 
tion to the Internet does 
not exist, the user is still 
able to run the applica- 
tion. However, the full 
set of functionality is 
not accessible. 

Finally, true Web ap- 
plications make the 
most active use of the 
Internet. These applica- 
tions are totally depen- 
dent on the existence of 
the Internet. A Web 
server is used to serve 
up or host the applica- 
tion. Without a connec- 
tion to the Internet, the 
application is not avail- 



able for use by the user. 

These are some fairly broad catego- 
ries; in fact, they don't completely cover 
the range of possibilities when talking 
about developing Internet applications 
and Internet solutions. I'll limit this article 
to the number of ways Visual Basic inter- 
acts with the Internet. 

INTERNET-ENABLED APPLICATIONS 

Let's start out with the simplest of these 
categories: Internet-enabled applications. 
The Internet does not play a part of the 
core functionality of most of these appli- 
cations. For this reason, the techniques 
I'll show you are applicable to an applica- 
tion already late in its development cycle, 
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Figure 1 . Microsoft on the Web. Here 's a perfect example 
ofprovidingsupplemental information to the user by integrating 
Web links with the application. Microsoft provides an easy 
way to navigate to related sites from the application by letting 
the user select Microsoft on the Web from the Help menu of 
most of its applications. 
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or to a revision of a current application. 
These techniques will have little impact 
on the existing design or application. 

Why would you want to develop an 
Internet-enabled application? Maybe you 
want to provide a link to a site on your own 
Web site to provide users with additional 
information, supplemental help files, or 
Frequently Asked Questions (FAQ) docu- 
ments. Maybe you want to provide a link to 
your corporate Web site, for pure market- 
ing purposes. Or maybe you want to pro- 
vide other information to your users that 
might be on the Internet. All of these are 
valid reasons, and all will enrich your us- 
ers' experience of your application. 

In fact, Microsoft takes advantage of 
many of the offerings of Internet-enabled 
apps in most of its applications. If you go 
to the Help menu item in any Office appli- 
cation, you'll notice the "Microsoft on the 
Web" selection (see Figure 1). Selecting 
one of the submenu items immediately 
launches your default Web browser and 
navigates to the selected page. 

With a few lines of code, you can pro- 
vide this type of functionality in your 
applications. The simplest and most di- 
rect method requires only a declaration 
of one API function, ShellExecute, and the 
actual call to that function: 

'Here's the declaration 

Declare Function ShellExecute Lib 
"shell32.dll" Alias _ 
"ShellExecuteA" (ByVal hwnd As 
Long, ByVal lpOperation As String, 
ByVal lpFile As String. ByVal 
lpParameters As String, ByVal 
lpDirectory As String, ByVal 
nShowCmd As Long) As Long 

' And later in the code, 
' here's the call 
IReturn - Shel 1 Execute(Me. hWnd, 
vbNullString, 

"http://www.paradigms.com", 
vbNullString, "C:\", 1 

One advantage to using the ShellExe- 
cute function is that it's browser-indepen- 
dent. It launches your default browser, 
whether it's Internet Explorer, Netscape, 
or some other browser. The disadvantage 
is that your application has no further 
interaction with the browser, which might 
be fine, depending on your application. 

However, if you want to have more 
interaction with the Web browser, you 
can use Automation to launch and con- 
trol the browser; this requires you to use 
Internet Explorer (IE). IE is an Automation 
Server, which means it exposes its prop- 
erties, methods, and events to any appli- 
cation that makes a proper reference to it. 
IE lets you interact with the browser once 
it is launched, navigate to a new page, 



Category 


Description 


Internet-Enabled 
Internet-Aware 
Internet/Web Application 


Use of Web browser or Web links. 

Passive use of the Internet to provide supplementary features, or enrich the user 
experience. 

Internet Transfer Control, Winsock Control. 

Active use of the Internet to provide essential services. 

Application runs without the Internet, but functionality Is limited. 

AdiveX controls on Web pages, Active Documents, Adive Server Pages. 

Internet or Web pages host the application and are an integral part of the application. 

Without the Internet, the application cannot be accessed or run. 


Table 1 . At a Glance. Here are the three different levels of interaction VB can have with 
the Internet. 


Property 


Description 


Document 

LocationName 

LocationURL 

MenuBar 

StatusBar 

StatusTexl 

Toolbar 

Visible 


Reference to the Automation object of the Adive Document currently being displayed. 
The name of the page currently being viewed. 
The URL of the page currently being viewed. 
Turns the menu bar of the browser on and off. 

T ,1 j i L t il 1 J II 

Turns the status bar of the browser on and ott. 
Returns the text currently in the status bar. 
Turns the toolbar of the browser on and off. 
Displays the Web browser. 


Method 


Description 


GoBack 

GoForward 

GoHome 

GoSearch 

Navigate 

Refresh 

Stop 


Moves to the previous page. 

Moves to the next page. 

Moves to the home page, os set in the browser. 

Moves to the search poge, as set in the browser. 

Moves to the specified URL 

Reloads the current page. 

Stops loading the current page. 


Event 


Description 


DownloadBegin 

DownloadComplete 

NavigateComplete? 

ProgressChange 

StatusTextChange 

TitleCbonge 


Fires when the page download begins. 
Fires when the page is completely loaded. 
Fires when the page being loaded becomes visible. 
Fires when the download progress status is changed. 
Fires when the status bar text is changed. 
Fires when the document title is changed. 



Table 2. Make Use of the WebBrowser Object. Here are some of the commonly used 
properties, methods, and events of Internet Explorer's WebBrowser object. 



For Further Reading 



To find out more about the Internet solutions presented in this article, 
check out the Microsoft Developer Network (MSDN) at http:// 
www.microsoft.com/msdn, or check out the Visual Basic help files 
Books Online. In addition, a number of VBPJ articles expand on some 
of the topics in this article, including "Run VB5 Apps Inside the 
Browser" by William Storage [March 1997]; "Connecting Computers 
Over the 'Net" by Ron Schwarz [June 1997]; "Build Enterprise Apps 
with MTS" by Rick Lievano and Steven Gray [Fall 1997, Windows NT 
Enterprise Development issue]; and "In the Trenches with N-Tier 
Development" by Jonathan Zuck [November 1997]. 
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' On the Server Side: 



Private Sub cmdReady_Cl i ck( ) 

wskServer. Protocol - sckTCPProtocol 
wskServer.LocalPort - 1001 
wskServer. Listen 

End Sub 



check the status of some action or deter- 
mine the current page, or react to various 
events of the browser. 

In VB, you establish a reference to 
Internet Explorer by selecting "Microsoft 
Internet Controls" from VB's References 
list. This provides a reference to IE's 
SHDOCVW.dll file. Next, declare a vari- 
able of type InternetExplorer. If you want 
to be able to react to IE's events, be sure 
to declare it WithEvents. Once you do 
this, it's fairly straightforward to launch 
and browse using IE: 

'Declare the IE Browser Reference 
Public WithEvents ieBrowser As 
InternetExpl orer 

' Load, launch, and navigate IE 

Set ieBrowser - New InternetExplorer 

ieBrowser . Navi gate 

"http://www.paradigms.com" 
ieBrowser. Visible - True 

Internet Explorer provides a number 
of properties, methods, and events in its 
WebBrowser object you might want to 

make use ol (see Table 2 for a list of some 

of the more interesting ones). Microsoft 
has a full reference for the Internet Ex- 
plorer model on its Web site at http:// 



www.microsoft.com/intdev/sdk/docs/ 
iexplore. 

If you do make use of Internet Ex- 
plorer, you might want to distribute it 
with your application to ensure your us- 
ers have it on their system. I recommend 
checking out the IE4 Author's Software 
Development Kit for information on how 
to distribute IE. 

Through Automation, you can launch 
and control IE from your Visual Basic 
application. The down side, however, is 
that you launch the browser as a separate 
application. This is acceptable in many 
situations, but there might be times when 
you want to display the browser within 
the context of your own application. 

Fortunately, IE serves not only as an 
Automation Server, but also as an 
insertable control. You can select 
"Microsoft Internet Controls" from VB's 
Components list to include the 
WebBrowser control with your applica- 
tion. Use this control to draw the same 
Web browser that IE uses for its client 
window within your application. This con- 
trol lets you easily integrate the Web 
browser within your code. The benefit of 
this approach is that you can present Web- 
based information within your own appli- 
cation, as just another form in your appli- 



cation. The WebBrowser control supports 
all the functionality of Internet Explorer, 
including ActiveX controls, Java applets, 
client-side scripting, and more. 

You might want to make use of the 
WebBrowser control if you want to build 
a custom browser, surrounded in what- 
ever context you choose. Or perhaps you 
want to provide a single interface through 
which the user can view or edit any ActiveX 
documents, such as Word, Excel, or 
PowerPoint. Regardless of the purpose, 
you can integrate the browser into the 
application with ease. And VB provides a 
simple wizard to make the job even easier. 
When you add a new form to your applica- 
tion, you can select to add a Browser 
form. This automatically builds a simple 
Web browser form, with some code al- 
ready behind it, to implement basic Web 
browser functionality. 

INTERNET-AWARE APPLICATIONS 

Internet-aware applications actively use 
the Internet to provide some essential 
services to the application. Let's take a 
look at two ActiveX controls that ship 
with Visual Basic and provide access to 
Internet services: the Internet Transfer 
Control (ITC) and the Winsock Control. 

You can use the ITC to create File 
Transfer Protocol (FTP) connections and 
Hypertext Transfer Protocol (HTTP) con- 
nections with various servers on the 
Internet. If you're going to work with this 
control, be sure you have Service Pack 3 
(SP3) for Visual Basic or Visual Studio 
installed on your machine. SP3 corrects a 
serious bug in earlier versions of the ITC 
that kept it from functioning in any mean- 
ingful manner. 

You can use FTP connections to trans- 
fer files, both ASCII and binary, across the 
Internet in both synchronous and asyn- 
chronous methods. In asynchronous pro- 
cess, when you send a request to the FTP 
server, to download a file for instance, the 
application doesn't continue processing 
until the command finishes executing and 
the file is downloaded. Use the OpenURL 
method to send a command synchronously: 

'wait at next line 
'until file is retrieved 
SFile - Inetl. OpenURL _ 

( "f tp: //www. paradi gms . " & 

"com/Fi 1 e . txt" , icString) 

On the other hand, an asynchronous 
process lets the user send a command to 
download a file. The process immediately 
returns control to the application so the 
user can continue to do other work. The 
ITC downloads the file in the background 
as the user works. The Execute method 
sends an FTP command asynchronously. 
You can check the StillExecuting prop- 
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Private Sub wskServer_ConnectionRequest(requestID As Long) 

'Accept any request 

wskServer. Accept requestID 
End Sub 

Private Sub wskServer_DataArri val (ByVal bytesTotal As Long) 

'Read in the data and append it to the text box 

Dim slnBuffer As String 

wskServer. GetData slnBuffer, vbString 

txtRemoteMsg - txtRemoteMsg & slnBuffer 
End Sub 



On the Client Side 



Private Sub cmdConnect_Cl i ck( ) 

wskCl ient . Protocol - sckTCPProtocol 
wskCl i ent . RemoteHost - "RemoteHostName" 
wskClient.RemotePort - 1001 
wskCl i ent . Connect 

End Sub 

Private Sub cmdSend_Cl i ck( ) 

wskClient.SendData txtMessage 
End Sub 



Listing 1 . Client/Server Winsock Code. This sampling of code is the bare minimum 
required to establish a TCP connection between two machines. This allows a client 
application to pass text messages up to the server. 



erty to determine if an FTP command is 
still executing. The StateChanged event 
fires as the state of the FTP command 
changes, including when it is completed 
or when it fails with an error: 

'send FTP command 

'control is returned immediately 

Inetl . Execute _ 

"http: //www. paradigms . " & _ 
"com/download", "get myfile.txt" 

'loop waiting until command is 

' compl ete 

Do While Not Inetl . Sti 11 Executing 

DoEvents 
Loop 

You can use an HTTP connection to 
locate, retrieve, or view the source of 
HTML files on the Web. This is not the 
same as viewing the HTML page in a Web 
browser. Instead, the file that you re- 
trieve and display contains all the raw 
HTML, including tags and script. When 
you're running a Web browser, you view 
this same raw HTML if you view the source 
of an HTML file from within the browser. 
In Internet Explorer, you do this by select- 
ing Source from the View menu. In addi- 
tion, you can post data into an HTTP Web 
form using the Execute method: 

Inetl . Execute 

"http : //webserver /i nput .asp" , 
"POST", "Fname-Brad&Lname-Wist". 
"appl i cati on/x-www-f orm-url encoded" 

Now that you can transfer files on 
the Internet, let's turn our attention to 
transferring other types of data. Maybe 
you want to provide the ability to send 
some other binary data or text data to 
another machine on the Internet. Using 
sockets is the logical choice for this 
operation, and the Winsock ActiveX 
control gives you the ready interface 
into the Windows sockets API. 

Why would you, as a developer, want 
to send data across the Internet? Maybe 
you have an application that gathers reg- 
istration information from your user and 
transmits it to a waiting server, which 
collects the information and stores it in a 
database. Or maybe you want to provide 
users with the ability to chat across the 
Internet, or to share other data. 

The Winsock control lets you create 
two types of connections: Transport Con- 
trol Protocol (TCP) or User Datagram Pro- 
tocol (UDP). TCP provides connection- 
based communication, establishing a vir- 
tual connection between the two machines. 
You use this virtual connection to send 
and receive all communications. This is 
the basic client/server paradigm. UDP, on 
the other hand, is a connectionless ser- 
vice. With UDP, messages are broadcast 
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across the Internet instead of being sent to 
a particular machine. This architecture is 
used for peer-to-peer applications. 

Simply put, sockets provide a commu- 
nication interface between computers, 
allowing applications on multiple com- 
puters to exchange data using the TCP/IP 
network protocol. Windows sockets sup- 
port a number of logical ports that are 
available for communication, each of 
which is identified by a number. Internet 
standards have already defined services 
that are typically found on selected port 
numbers. For instance, Web servers use 
port 80, and FTP servers use ports 20 and 
21. When you write a Winsock applica- 
tion, be sure to avoid these port numbers. 
Generally, it's safe to use port numbers 
that are high, such as 1024 or more. But 
make sure your application doesn't con- 
flict with another application listening on 
the same port. 

To write a client/server Winsock appli- 
cation, first specify the protocol being 
used on both the server and client as TCP 
(see Listing 1). On the server, establish 
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the port on which the server will listen, 
then simply tell the server to listen to that 
port. When you make a connection to the 
server, the ConnectionRequest event fires. 
If desired, the server application can ac- 
cept the connection. If the server app 
doesn't accept the connection, the client 
receives the Close event, informing it that 
the connection is being closed. 

From the client side, the application 
specifies the remote server, either by 
its IP address or its host name. You 
need to specify the remote port number 
to communicate across, then issue the 
Connect method to request a connec- 
tion to the server. 

Once the connection is established, you 
can send data from the client to the server 
by using the SendData method. The 
SendData method can send either ASCII 
(string) data or binary data. On the server, 
the DataArrival event fires when data is 
received. You can then read the data from 
the buffer and act on it as appropriate. 

From a coding standpoint, a peer-to- 
peer Winsock application actually dif- 
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On the Server Side 



Private Sub cmdReady_Cl i ck( ) 

wskServer . Protocol - sckUDPProtocol 
wskServer . RemotePort - txtRemotePort 
wskServer. Bind txtLocalPort 

End Sub 

Private Sub cmdSend_Cl i ck( ) 

wskServer . SendData txtMessage 
End Sub 



Private Sub wskServer_DataArri val ( ByVal bytesTotal As Long) 

'Read in the data and append it to the text box 

Dim slnBuffer As String 

wskServer. GetData slnBuffer, vbString 

txtRemoteMsg - txtRemoteMsg 8 slnBuffer 
End Sub 



' On the Client Side 



Private Sub cmdConnect^Cl ick( ) 

wskCl ient . Protocol - sckUDPProtocol 
wskCl ient . RemoteHost - "HostMachi neName" 
wskCl i ent. RemotePort - txtRemotePort 
wskCl i ent . Bind txtLocalPort 

End Sub 

Private Sub cmdSend_Cl i ck( ) 

wskCl ient. SendData txtMessage 
End Sub 



Private Sub wskCl i ent_DataArri val (bytesTotal As Long) 
Dim slnBuffer As String 
wskCl i ent . GetData slnBuffer, vbString 
txtRemoteMsg - txtRemoteMsg & slnBuffer 

End Sub 



Listing 2. Peer-to-Peer Winsock Code. This sampling of code is the bare minimum 
required to establish a UDP connection between two machines. This allows two machines 
to send and receive text messages to and from each other. 
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Figure 2. Northwind on the Web. You can build an Active 
Document that lets you provide access to every developer's favorite 
Northwind database over the Web. You can see that the Active 
Document completely takes over Internet Explorer, including 
adapting the menu selections to its needs. 

fers very little from the client/server application. The one 
difference is in the choice of protocols you'll use, which in the 
case of the peer-to-peer application will be UDP instead of TCP. 
Because UDP does not require an explicit connection, don't 
issue the Listen method on the server or the Connect method 
from the client. Instead, simply specify a remote port that 
you'll communicate through. Bind your application to a local 
port, on which you will receive data. From there, both applica- 
tions can send or receive data (see Listing 2). 

TRUE WEB APPS 

A Web application is tightly integrated with and dependent on 
the Internet. It requires the Internet in order to serve up and 
deliver the application to the user. One of the great advances 
VB5 offers is its ability to create ActiveX controls. You can use 
these ActiveX controls on Web pages in order to provide more 
functionality than standard HTML. In addition, ActiveX controls 
give you increased performance because they're precompiled. 
You also get additional code privacy, because users of the 
control can't see how it was developed. 

Use the <OBJECT> tag to include these controls on a Web page. 
You need to specify the Class ID that uniquely identifies the 
control. When users access the page, IE checks their registry to 
see if the control is already installed on their system. If it is, the 
control will run. If not, the control's CAB file is retrieved from the 
location specified by the CODEBASE parameter in the OBJECT 
tag, and the control is automatically installed on the their system. 

VB's Setup Wizard helps you easily build the CAB file. While 
building the CAB file, make sure you mark the control as safe for 
initialization and safe for scripting. Marking the control as safe 
for initialiation means the control can be initialized with values 



in HTML <PARAM> tags. Marking the control as safe for scripting 
is your guarantee that the control will not cause a safety, either 
through data corruption or memory leaks. The Setup Wizard not 
only builds the CAB file, including the control and any of its 
dependencies, but also creates a sample HTML page that holds 
the CLASSID information. Otherwise, you would have to search 
the registry to get the correct CLASSID. The sample OBJECT tag 
looks something like this: 

<0BJECT 

CtASSID-"clsid:837A83A2-3FF4-llED- 
A520-01728E34B392" 

WIDTH-200 
HEIGHT-200 
ID-MyCalendar 
CODEBASE - 

"MySetup.CAB#version-l,0,0,0"> 

</0B0ECT> 

The next time the user accesses the page, it compares the 
current version on the page to the version the user installed. If 
a newer version is available, the new version will be downloaded 
and installed, replacing the older version of the control. 

Once the control is installed and running on the page, you'll 
still want to interact with it. Fortunately, the client-side script 
can still access the control's properties, methods, and events. In 
fact, if the script language is VBScript, the code looks much like 
Visual Basic, with the exception that VBScript uses only Variant 
data types: 

'read the control's property 
TheDate - MyCal endar . Sel ectedDate 

'Set the control's property 
MyCalendar.SelectedDate - TheDate 

'Call a method of the control 
MyCal endar . ShowDate 

'React to the OnDoubl eCl 1 ck event 
Sub MyCalendar_OnDoiibleClick() 

MsgBox "One Click should suffice" 
End Sub 

With VBScript, you can produce Web pages that have more 
advanced features than simple HTML. You can also expect 
improved performance over standard HTML, client-side script- 
ing, or Java applets, due to the compiled code. On the other 
hand, VBScript costs your client in additional resource usage, 
because the VB runtime files, as well as the component itself, 
need to be loaded. Your users will automatically get the most 
recent version of the control every time they access the page. 

This works well if you want to add particular features to a 
page. You can include as many ActiveX controls on your page as 
you wish, and allow them to interact using client-side scripting. 
However, this might be inefficient and impractical. If you need to 
include a number of controls that are tightly tied together, you 
might be better off building an Active Document application. 

An Active Document application runs within Internet Ex- 
plorer and can be hosted on the Web page, just as an ActiveX 
control. However, an Active Document is a single, integrated 
application that might include a number of controls within it. Or 
the Active Document application might consist of multiple, 
loosely integrated Active Documents. While I'll focus on the 
former case in this article, the discussion also applies to the 
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latter, though only a single application is downloaded and 
installed on the user's machine. While this is somewhat over- 
simplified, you can think of the Active Document application as 
really only an ActiveX Automation Server built to run within IE 
as the container. 

When you run an Active Document, it takes over IE com- 
pletely (see Figure 2). The document uses the browser as a 
container to host the application, and a VB ActiveX component 
is launched to provide the functionality for the document. It's 
best to build and test an Active Document as a standalone VB 
application. Once you complete it, use the ActiveX Document 
Migration Wizard to convert the application from a VB app to an 
Active Document app. Unless you're converting a simple appli- 
cation, at this point you still need to do some code cleanup and 
debugging. However, the Conversion Wizard leaves you much 
closer to the end goal. 

As with ActiveX controls, Active Documents allow for in- 
creased performance as the code is precompiled. Active Docu- 
ments are more tightly pieced together; they don't depend on 
client-side script to keep everything working together. Also, 
when you update the application, everyone that accesses the 
page will receive the update automatically. This greatly simpli- 
fies maintaining the correct versions on many different user 
machines. Using the Setup Wizard that ships with VB should 
help you set up the pages in order to download and install the 
files. You should check the Knowledge Base for some hints to 
overcome problems in opening Active Documents on the Web 
(see http://support.microsoft.eom/support/kb/articles/q 1 68/4/ 
31. asp and http://support.microsoft.com/support/kb/articles/ 
ql67/3/80.asp). 

Unfortunately, the resource impact and memory footprint of 
these Active Documents is not insignificant, so you need to test 
your apps on lower-end machines to be sure your users don't 
have a problem running the application. In addition, both ActiveX 
controls and Active Documents require users to use Internet 
Explorer. This might be fine for a controlled environment, such 
as an intranet, but this won't work well for a public, Internet site 
that you want to be as open as possible for any and all users. 

Fortunately, there is a solution for this problem as well. You 
need to move much of the functionality to the server side. Use 
Active Server Pages (ASP) to dynamically provide HTML to the 
users, based on their browsers and their requirements. Be- 
cause only HTML is pumped down to the user, any browser can 
access these sites. 

You can write the server-side script in VBScript, JScript, or 
other languages (if you have the proper extensions), but you can 
also extend the functionality beyond the script. You can access 
ActiveX Server Components to provide the benefits of increased 
performance. These benefits come from the fact that the ActiveX 
components are compiled, and therefore can run more effi- 
ciently than script. In addition, these components can easily be 
adapted to run under Microsoft Transaction Server (MTS) in 
order to scale up the application for more users. 

MTS provides the ability to enclose pieces of functionality 
within transactions, so either all the changes in data are made or 
none are made. In addition, MTS provides for pooling of thread 
and process resources on a server, so ActiveX components can 
service more clients than otherwise would be practical. 

You can fairly easily build an ActiveX Automation Server to 
be used with MTS. First, set a reference to the Microsoft Trans- 
action Server 1.0 Object Library (for MTS 1.0) or Microsoft 
Transaction Server Type Library (for MTS 2.0) in the VB Refer- 
ences list. In the initial function you call to make some changes 
to the data, you must define the MTS context that holds the 
transaction. Then, every function that runs will notify the con- 
text that it has or has not completed successfully. This way, 
when the originating function completes, it can determine if 



everything ran correctly or not, and can either commit or roll 
back the transaction: 

Public Sub DoUpdateO 

On Error Goto DoUpdateError 
Dim ctxObject As ObjectContext 
Set ctxObject - GetObjectContexU ) 

'Execute DB update code here 

ctxObject . SetCompl ete( ) 

Exit Sub 
DoUpdateError : 

CtxObject. SetAbortC ) 
End Sub 

MTS also provides an interface you can implement, and 
should implement, if you want to support connection pooling. 
You implement the interface, named ObjectControl, using the 
Implements keyword in VB. This gives you three new events to 
code for. You need to add at least a line of code in each of these 
events, even if the line is blank. The one you will probably be 
most concerned with is the CanBePooled event. If this event 
returns True, then the connections to this object will be pooled 
by MTS. The code for these events looks like this: 

Implements ObjectControl 

Private Sub ObjectControl_Activate( ) 
'placeholder ... no code required 
End Sub 

Private Function ObjectControl_CanBePooled( ) As _ 
Bool ean 

ObjectControl_CanBePooled - True 
End Function 

Private Sub ObjectControl_Deacti vate( ) 

'placeholder ... no code required 
End Sub 

In order to maintain clean components, ensure that any 
components you build are stateless — you should reset any 
related data each time you create the component. You can use 
the Initialize and Terminate events to do this. In addition, make 
sure the component is apartment-threaded by checking the 
"Unattended Execution" box in the project properties. 

If the techniques discussed here don't fit your needs, more 
alternatives and other resources are available. For instance, you 
can find out more about the API calls available in the WININET.dll 
in the Internet Explorer Software Development Kit. 91 
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Customize Word's 
Find-and-Replace and 
document access 
features to speed up 
your work. 



Can you name a consumer prod- 
uct that nobody has seen fit to 
customize? I doubt it. People will 
do almost anything to get things 
the way they like them, from bolting a 
turbocharger onto their aging Volvo to 
committing the ultimate heresy of putting 
ice in single-malt Scotch. I've even seen 
some folks put happy-faced cardboard 
surrounds on their monitors to give them 
a personality. 

But next to nobody can be bothered to 
customize applications to make them suit 
specific needs. Most people will try just 
about anything with freeware and share- 
ware packages that promise miracles, but 
at the same time, they put up with 
the annoyances and default behavior 
of major software packages, apparently 
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believing they can't 
modify the software. As 
a result, people work 
more slowly and less 
efficiently — and get 
frustrated. 

Thanks to Visual 
Basic for Applications 
(VBA), however, the 
major Microsoft Office 
applications — espe- 
cially Microsoft Word — 
are almost infinitely 
customizable. You don't 
need to be content with 
the interface custom- 
izations that toolbars 
and the menu bar allow. 
Using a little effort and 
some code, you can 
plunge your hands into 
the guts of Word and rearrange things 
until Word works your way. 

This article shows you 10 VBA 
subprocedures for making Word more 
responsive and easier to use. These 
subprocedures also illustrate program- 
ming techniques useful for making fur- 
ther alterations to Word. 

I've focused on two areas in Word 
where you can easily make significant 
changes. I'll start with four simple 
customizations of Find and Replace, one 
of Word's most useful and widely appli- 
cable tools. I'll then look at six ways to 
improve and speed up your work with 
documents and folders, from displaying 
brief information about the active docu- 
ment to maintaining a quick-access list of 
the previous 25 or more documents you've 
worked on. 
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Figure 1. Get Ready to Customize. Set yourself up for some 
quick VBA subprocedure writing: Create a new module by right- 
clicking on the template in the Project Explorer and choosing 
Module under the Insert menu. Rename the new module in the 
Properties window. Then maximize the Code window and 
place an Option Explicit statement at the beginning of it. 



To get started for this customization 
session, start a fresh session of Word 
and open a new document based on the 
Normal template. If you've set your 
Normal. dot global template to read-only 
to protect against macro viruses, remove 
the read-only protection before starting 
Word — otherwise, you won't be able to 
save any of the subprocedures. 

Start the VB Editor by pressing Alt+Fl 1 
or choosing Tools I Macro I Visual Basic 
Editor. Start a new module in a suitable 
template by right-clicking on the template 
in the Project Explorer and choosing 
Insert I Module from the context menu. In 
the Properties window, change the name 
of the new module from "Modulen" to 
something catchier. I opted for the de- 
scriptive rather than the brief and named 
mine "VBPJ_Getting_Started." 
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Next, maximize the Code window. Place 
an Option Explicit statement at the begin- 
ning of the module so VBA forces you to 
declare each variable before using it in 
code. If you select the Require Variable 
Declaration check box on the Editor tab 
of the Options dialog box, the VB Editor 
places the declaration at the beginning of 
the module when you create it. 

Now you're ready to start (see Figure 
1). Start each of your procedures by choos- 
ing Procedure from the Insert menu to 
display the Add Procedure dialog box. 
Enter the name for the procedure in the 
Name text box. Make sure you select the 
Sub option button in the Type group box 
and the Public option button in the Scope 
group box, and click on the OK button. The 
VB Editor starts a Public subprocedure in 
the Code window: 

Public Sub FindNextInstance( ) 

End Sub 

Enter the statements for the proce- 
dure between the Public Sub and End Sub 
statements. 

IMPROVE FIND AND REPLACE 

Find and Replace is one of Word's most 
useful features. If you're using Word to its 
fullest, you probably use Find and Re- 
place a dozen times a day. In this section, 
I'll show you four ways of improving the 
Find feature: 

1. Clearing the sticky settings in the Find 
and Replace dialog box. 

2. Quickly finding the next or previous 
instance of the current word or selection. 

3. Finding a word or phrase in any open 
document. 
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Public Sub EditFindClearAlK) 
With Selection. Find 
.CI earFormatti ng 
.MatchWhol eWord - False 
.MatchAllWordForms - False 
.MatchCase - False 
.MatchSoundsLi ke - False 
.MatchWildcards = False 
.Forward - True 
.Wrap - wdFindContinue 
.Text - "" 
With .Replacement 
.Text - "" 
.CI earFormatti ng 
End With 
End With 
End Sub 

Listing 1 . Clearing All the Settings for 

the Find Object. Because the Find settings 
stick from one operation to the next, use a 
thorough cleanup routine that resets each 
setting to its default. 
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4. Resetting the Browse object to Find 
from the keyboard. 

As you know, the Find and Replace 
settings are sticky — during a Word ses- 
sion, Word stores them between Find and 
Replace operations. For the most part, 
this stickiness is useful, which is why it's 
the default setting. (Apart from the Find 
and Replace dialog box, Word's 
Ctrl+PageUp and Ctrl+PageDown Browse 
object keystrokes use the Find settings 
when the Browse object is set to Find.) 
But if you often perform complex searches, 
particularly those involving formatting or 
styles, you need to clear the formatting 
either before, afterwards, or both. If you 
forget to clear the formatting, your 
searches either fail or turn up results 
other than those you wanted. 

For Find, create a simple subprocedure 
that uses the ClearFormatting method on 
the Find object to clear any sticky format- 
ting before displaying the Find tab of the 
Find and Replace dialog box: 

Public Sub EditFindCleanO 

Selection. Find .ClearFormatting 
Dialogs(wdDialogEditFind) .Show 

End Sub 

For Replace, the subprocedure needs 
to clear the formatting from both the Find 
object and the Replacement object and 
display the Replace tab of the Find and 
Replace dialog box. You can use a With 
statement for this, because the Find ob- 
ject contains the Replacement object: 

Public Sub EditReplaceCleanO 
With Sel ecti on . Fi nd 

.CI earFormatti ng 

. Repl a cement . CI earFormatti ng 
End With 

Dialogs(wdDialogEditReplace).Show 
End Sub 

You might also want to clear other 
settings in the Find object before display- 
ing the dialog box. Restoring Find and 
Replace to a vanilla state requires a full 
battery of statements (see Listing 1). 

Find operations are easy enough, but 
if you often find yourself searching for a 
word you see on screen, you can save 
yourself time and effort by creating 
FindNextlnstance and FindPreviousIn- 
stance subprocedures. These sub- 
procedures find the next or previous in- 
stance of the selected word or phrase 
or — if the selection is collapsed to an 
insertion point — of the current word. This 
saves you the steps of selecting the cur- 
rent word, invoking the Find and Replace 
dialog box, pasting the word in, executing 
Find, and closing the Find and Replace 
dialog box (or clicking outside it) so you 
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can work with the word. 

The second line of the FindNextln- 
stance subprocedure declares the string 
variable strWord, which the subprocedure 
uses to contain the text to be found (see 
Listing 2). The first If statement sets 
strWord to the first word in the current 
selection ("Selection.Words(l)") if the 
length of the Text property of the Selection 
object is less than two. You need to check 
the length because if the selection is col- 
lapsed to an insertion point, Selection.Text 
has a length of one and returns the charac- 
ter to the right of the insertion point. If the 
length of the Text property is not less than 
two, strWord is set to the value of 
Trim(Selection.Text) — the Text property 
of the Selection object, trimmed to remove 
any spaces at its beginning or end. The 
trimming avoids having Word include in 
the search any selected space after the last 
selected word. If Word includes the space, 
and the next instance of the text has, say, 
punctuation after it, Find doesn't find that 
next instance. 

The With statement sets the properties 
of the Find object and then uses the Execute 
method to execute the search. It sets the 
Text property of the Find obj ect to the value 
of strWord, uses the ClearFormatting 
method to clear any formatting set, and sets 
the MatchCase, MatchSoundsLike, and 
MatchWildCards properties to False. If the 
result of the Execute method is False, the 
subprocedure displays a message box noti- 
fying the user that it didn't find the word. 

Once you create this subprocedure, 
you need to create a FindPreviousInstance 
subprocedure that does the same thing 
but finds the previous instance of the 
word. First, copy the whole subprocedure 
and paste it into free space in the Code 
window, then alter the name "Find- 
PreviousInstance" in the first line, and 
change the ".Forward = True" statement 
to ".Forward = False." 

Use the Customize command under 
the Tools menu to create toolbar but- 
tons or menu items for these two 
subprocedures. Better yet, place them 
on some of the Text context menus for 
instant right-click access when working 
with the mouse. 

USE FIND IN ANY OPEN DOCUMENT 

If you work with a number of open docu- 
ments, you can create a subprocedure 
that lets you search for specific text in any 
of them, rather than in the active docu- 
ment only. The FindlnAnyOpenDocument 
subprocedure uses a For Each. ..Next loop 
to run a Find operation of each open 
document in succession (see Listing 3). 

The subprocedure declares the Docu- 
ment variable myDoc for use in the For 
Each. ..Next loop and the string variable 
strWord to contain the text being searched 
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Public Sub FindNextlnstancet ) 
Dim strWord As String 
If Len(Selection.Text) < 2 Then 
strWord - Selection. Words(l) 
Else 

strWord - 

Trim(Sel ecti on .Text ) 
End If 

With Sel ecti on . Fi nd 
.Text - strWord 
. CI earFormatti ng 
. Forward - True 
.MatchCase - False 
.MatchSoundsLi ke - False 
.MatchWi 1 dcards = False 
If .Execute - False Then 
MsgBox Chr(34) & strWord _ 
& Chr(34) & _ 
" was not found.", 
vbOKOnly + _ 
vblnf ormati on , _ 
"Find Next Instance" 
End If 
End With 
End Sub 

Listing 2. Find the Next Instance of the 
Current Word or Selection. Use the Find 
object to perform an instant find without 
displaying the Find and Replace dialog box. 

for. The subprocedure assigns the result 
of the input box to strWord. If the input 
box results in an empty string, which 
occurs if the user chooses the Cancel 
button or chooses the OK button without 
entering text in the text box, the End 
statement terminates the subprocedure. 

The For Each. ..Next loop repeats for 
each document, represented by the myDoc 
variable, in the Documents collection 
(which contains all the open documents), 
stopping if it finds strWord. The loop uses 
a With statement to work with the docu- 
ment identified by myDoc. The If 
.Find.Execute statement searches the cur- 
rent document for the strWord text. If the 
statement finds strWord, the subprocedure 
activates the document, moves the selec- 
tion to the start of the document, and 
performs a Find operation that selects the 
first instance of the word. The End state- 
ment then terminates the subprocedure. If 
the .Find.Execute statement doesn't find 
strWord, the subprocedure displays a 
message box saying so. 

If you're keyboard-based and accus- 
tomed to using the Ctrl+PageUp and 
Ctrl+PageDown key combinations for Find 
Previous and Find Next (respectively), 
you probably find it tedious using the 
mouse to reset the Browse object to Find 
after browsing by other objects, such as 
fields or tables. Simply create a one-line 
subprocedure to reset the Browse object 
to Find, assign this subprocedure to a 
keystroke, and you're all set: 

Public Sub BrowseByFindO 



Application. Browser. Target = _ 
wdBrowseFi nd 
End Sub 

WORKING WITH DOCUMENTS AND 
FOLDERS 

These six subprocedures can speed up 
your access to documents and folders: 

1 . Displaying quick information about the 
active document. 

2. Opening the folder containing the ac- 
tive document. 

3. Creating a document based on the same 
template as the active document. 

4. Opening a document without adding it 
to the Most Recently Used list. 

5. Closing all open documents except the 
active document. 

6. Getting quick access to the last 25 files 
closed. 

Long file names and long folder names 
are wonderful in many ways, but they 
make it harder to remember which folder 
contains which document. It's also hard 
to recall exactly what you called a file, 
because the latitude provided by long file 
names seems to blow away the discipline 
of naming a file sensibly. 

The General tab of Word's Properties 
dialog box — under the File menu — shows 
the folder name, but it's separated from 
the document name. In any case, Word 
usually wants to show you the Summary 
tab of the Properties dialog box first. 

To get the path and name of the docu- 
ment, create a one-line subprocedure with 
a message box: 

Public Sub Fi 1 enameAndPatht ) 

MsgBox Acti veDocument . Ful 1 Name, _ 

vbOKOnly + vblnf ormati on , 

"File Name and Path" 
End Sub 

You can enhance this subprocedure 
by adding other pertinent information 
from the document and its Builtln- 
DocumentProperties collection. This ex- 
ample displays a message box with the 
document's name and path, the template 
the document is based on, the number of 
words it contains, and the name of the 
person who created it: 

Public Sub FileKeyInfo( ) 
Dim strlnfo As String 
With Acti veDocument 

strlnfo - .FullName & vbCr & 
vbCr 

strlnfo - strlnfo & _ 
"Tempi ate : " & _ 
. AttachedTempl ate & vbCr & _ 
VbCr 

strlnfo - strlnfo & 
"Created by: " & _ 



. Bui 1 tlnDocumentProperti es ( _ 
wdPropertyAuthor) & vbCr & _ 

vbCr 

strlnfo - strlnfo & _ 

.Bui 1 tlnDocumentProperti es ( _ 
wdPropertyWords ) & " words" 
MsgBox strlnfo, vbOKOnly + 
vblnf ormati on , _ 
"File Key Information" 
End With 
End Sub 

If you open documents frequently from 
the Most Recently Used list on the File 
menu or from Explorer, you probably have 
documents from many different folders 
open at once. When you need to open 
another document located in the same 
folder as one of the open documents, you 
waste time spelunking through multiple 
layers of computers, drives, and folders 
in the Open dialog box. 

The FileOpenFolderOfActiveDoc- 
ument subprocedure uses the Change- 
FileOpenDirectory statement to change 
the directory displayed in the Open dia- 
log box to the Path property of the 
ActiveDocument object (provided the 
Path is not an empty string, which indi- 
cates a never-saved document). It then 
displays the Open dialog box for the user 
to open a document: 

Publ i c Sub _ 

Fi 1 eOpenFol derOf Acti veDocument ( ) 
If ActiveDocument. Path <> "" Then _ 
ChangeFi 1 eOpenDi rectory _ 
(ActiveDocument. Path) 
Di al ogs(wdDi al ogFi leOpen) . Show 
End Sub 

You can quickly create a new docu- 
ment based on the same template as the 
active document without even finding out 
what it is. Simply declare a string variable 
to contain the template name, and assign 
to the string the AttachedTemplate prop- 
erty of the ActiveDocument object. Use 
the Add method of the Documents collec- 
tion to create a new document, and specify 
the string as the Template argument: 

Publ i c Sub _ 

Fi 1 eNewTempl ateOf CurrentDocument ( ) 

Dim strTemplate 

strTempl ate - 

Acti veDocument .AttachedTempl ate 

Documents .Add Tempi ate : -strTempl ate 
End Sub 

To protect the valuable entries on the 
Most Recently Used (MRU) list at the 
bottom of the File menu, you can open 
documents for reference and specify that 
Word not add them to the MRU list. To do 
so, set the AddToRecentFiles argument 
to False when opening a document: 
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Public Sub FileOpenDoNotAddToMRUO 
Documents .Open _ 

Fi 1 eName :-"f : \common\" & _ 
"Industrial Averages.doc", _ 
AddToRecentFi 1 es :-Fal se 

End Sub 

Hold down Shift as you click on the File 
menu, and the Close command becomes 
a Close All command, enabling you to 
quickly close all open documents. But 
what if you want to keep the current 
document open while closing all others? 
You guessed it: You need a subprocedure 
that does the trick for you. 

The FileCloseAUExceptActiveDoc- 
ument subprocedure uses a For 
Each. ..Next loop to work through each 
open document in turn, comparing it to 
the str Active string variable that it uses to 
store the Name property of the Active- 
Document object. It's necessary to store 
the Name in the string rather than using 
the direct comparison "If myDoc.Name <> 
ActiveDocument.Name" because the ac- 
tive document changes as Word closes 
the other document windows in turn: 

Public Sub 

Fi 1 eCl oseAl 1 Except Ac t i veDocument ( ) 
Dim myDoc As Document, strActive _ 

As String 
strActive - ActiveDocument.Name 
For Each myDoc In Documents 

If myDoc.Name <> strActive Then 

Documents (myDoc) .CI ose 
End If 
Next 
End Sub 

GET QUICK ACCESS TO LAST 25 FILES 

For the coup de grace, I'll show you a 
straightforward subprocedure and 
userform (dialog box) that provides you 
with quick access to the last 25 files you 
closed. If you create a ton of documents in 
Word, as I do, I'm sure you've set the Most 
Recently Used list on the File menu to its 
maximum of nine entries. But that's never 
enough, and the document you want has 
always dropped off the bottom of the list. 
This userform displays the last 25 docu- 
ments you've closed using a custom Close 
command that maintains a list of the docu- 
ments you close. 

This subprocedure works with the 
Close command rather than the Save 
command to ensure that it lists files you 
open and close without changing or sav- 
ing information — for reference, or to copy 
information into another document. A 
second advantage is that if you don't 
want the document you're closing to be 
added to the list, you can easily bypass 
the subprocedure by using the Close 
button on its window instead of the cus- 
tom Close command. 



http://www.windx.com 



Start with the slowest part: creating 
the subprocedure that maintains the list 
of the files you've most recently closed. 
Create a procedure named FileClose- 
AddToRecentFiles and enter into it the 
code (see Listing 4). 

The subprocedure declares the string 
variable strRegistry to contain the loca- 
tion of the Registry key used for storing 
the file information, the string variable 
strThisFile to contain the name of the 
active document, and the 25 string vari- 
ables strFilel through strFile25 to contain 
the names of the currently stored files: 

Dim strRegistry As String 
Dim strThisFile As String 
Dim strFilel As String 

If the Path property of the 
ActiveDocument object isn't an empty 
string, the subprocedure assigns the 
FullName property to strThisFile and 
closes the ActiveDocument object. If Path 
is an empty string — meaning the docu- 
ment has never been saved — the 
subprocedure closes the ActiveDoc- 
ument object and ends the sub- 
procedure: 

If Acti veDocument . Path <> "" Then 

strThi sFi 1 e - 

ActiveDocument. Ful 1 Name 

Acti veDocument. CI ose 
Else 

Acti veDocument . CI ose 
End 
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End If 

The subprocedure assigns the Registry 
key to strRegistry. It uses the Private- 
ProfileString property of the System object 
to retrieve the values of the Filel through 
File25 items in the Registry and assign them 
to strFilel through strFile25: 

strRegi stry - 

"HKEY_CURRENT_USER\Sof twa re\" & _ 

"Microsoft\0ffice\8.0\Common\" & 

"RecentFi 1 es" 
strFilel - _ 

System. Pri vateProfi 1 eSt ri ng( "" , 

strRegistry. "Filel") 

The subprocedure compares the value 
of strThisFile to each of the Registry item 
values in turn and uses the strFilen string 
variables to set the Registry item values 
appropriately. For the second through 25th 
items , it works this way: If strThisFile doesn't 
match the current item, the subprocedure 
sets the current item to the previous strFilen 
string variable and continues; if strThisFile 
does match the current item, the 
subprocedure sets the current item to the 
previous strFilen string variable and termi- 
nates, because no Registry item after this 
one needs to be changed: 

If strThisFile <> 

System. Pri vateProfi 1 eSt ring ("" , _ 
strRegistry. "FileZ") Then 
System. Pri vateProfi 1 e 

StringC", strRegistry, 




Public Sub FindlnAnyOpenDocumentt ) 
Dim myDoc As Document 
Dim strWord As String 

strWord - InputBoxt "Enter the word to search for:", 

"Find in Any Open Document") 
If strWord - "" Then End 
For Each myDoc In Documents 

With Documents (myDoc) . Range 
If . Find . Executet FindText :-strWord , 

MatchCase :-Fal se . MatchWhol eWord :-Fal se , 
MatchSoundsLi ke : —Fa 1 se , _ 
MatchAllWordForms :-Fal se, Forward:-True. _ 
Wrap :-wdFi ndConti nue , Format:-Fal se) -_ 
True Then 

Documents (myDoc) .Acti vate 

Sel ecti on . HomeKey Unit:-wdStory , 

Extend :-wdMove 
Sel ecti on . Fi nd . Execute Fi ndText : -strWord 
End 
End If 
End With 
Next 

MsgBox Chr(34) & strWord & Chr(34) & _ 
" was not found in any of the open documents.", 
vbOKOnly + vblnf ormati on , 
"Find in Any Open Document" 
End Sub 

Listing 3. Extend Find Beyond the Active Document. By using a For Each.. .Next loop 
with the Documents collection, you can have Find work on each open document in turn 
until it finds the word or phrase you want. This subprocedure then displays the document 
where it found the target. 
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Public Sub FileCloseAddToRecentFilesO 
Dim strRegistry As String 
Dim strThisFile As String 



Dim strF 
Dim strF 
Dim strF 
Dim strF 
Dim strF 
Dim strF 
Dim strF 
Dim strF 
Dim strF 
Dim strF 
Dim strF 
Dim strF 
Dim strF 



Dim 
Dim 
Dim 
Dim 
Dim 
Dim 



strF 
strF 
strF 
strF 
strF 
strF 



Dim strF 
Dim strF 
Dim strF 
Dim strF 
Dim strF 
Dim strF 



lei As String 
le2 As String 
le3 As String 
le4 As String 
le5 As String 
le6 As String 
le7 As String 
le8 As String 
le9 As String 
lelO As String 
lell As String 
lel2 As String 
lel3 As String 
lel4 As String 
lel5 As String 
lel6 As String 
lel7 As String 
lel8 As String 
lel9 As String 
le20 As String 
le21 As String 
le22 As String 
le23 As String 
le24 As String 
le25 As String 



If ActiveDocument.Path <> "" Then 

strThisFile - Acti veDocument . Ful 1 Name 
Acti veDocument . CI ose 

Else 

Acti veDocument .CI ose 
End 
End If 

strRegistry - "HKEY_CURRENT_USER\Sof twa re" & 
"\Mi crosoft\0f f i ce\8 . 0\ Common \RecentFi 1 es" 

strFilel - System. PrivateProfileString 
("", strRegistry, "Filel") 

strFile2 - System. Pri vateProfi 1 eStri ng 
("", strRegistry, "File2") 

strFile3 - System. Pri vateProfi 1 eString 



(" 



strFile4 - System. Pri vateProfi 1 eStri ng 



strFile5 - System. Pri vateProfi 1 eStri ng 



strFile6 = System . Pri vateProfi 1 eStri ng 



C" 



strFile7 - System. Pri vateProfi 1 eString 



(" 



strFile8 - System. Pri vateProfi 1 eStri ng 



(" 



strFile9 - System. Pri vateProfi 1 eString 



(" 



strFilelO - System. Pri vateProfi 1 eStri ng 



(' 



strFilell - System. PrivateProfileString 



(" 



(' 



t" 



(' 



(' 



(" 



(' 



(' 



strRegistry, "File3") 



strRegistry, "File4") 



strRegistry, "File5") 



strRegistry, "File6") 



strRegistry, "File7") 



strRegistry, "File8") 



strRegistry, "File9") 



strRegistry. "FilelO") 



strRegistry, "Filell") 



strFilel2 - System. Pri vateProfi 1 eStri ng 



strRegistry, "Filel2") 



strFile!3 - System. Pri vateProfi 1 eStri ng 



strRegistry, "Filel3") 



strFilel4 - System. Pri vateProfi 1 eStri ng 



strRegistry, "Filel4") 



strFilel5 - System. Pri vateProfi 1 eStri ng 



strRegistry. "Filel5") 



strFilel6 - System. PrivateProfileString 



StrRegistry. "Filel6") 



strFilel7 - System. Pri vateProfi leStri ng 



strRegistry, "Filel7") 



strFile!8 - System. Pri vateProfi 1 eString 



strRegistry. "Filel8") 



strFile!9 - System. PrivateProfileString 



strRegistry, "Filel9") 



strFile20 - Sys tern. Pri vateProfi 1 eSt ri ng 



("", strRegistry. "File20") 
strFile21 - System. PrivateProfileString 

("", strRegistry, "File21") 
strFile22 - System. Pri vateProfi 1 eStri ng 

("", strRegistry, "File22") 
strFile23 - System. Pri vateProfi 1 eStri ng _ 

("", strRegistry, "File23") 
strFile24 - System. Pri vateProfi 1 eString _ 

("". strRegistry, "File24") 
strFile25 - System . Pri vateProfi 1 eStri ng _ 

("", strRegistry. "File25") 

If strThisFile <> System. Pri vateProfi leStri ng 
("", strRegistry, "Filel") Then 
System. Pri vateProfi 1 eSt ri ng 

("", strRegistry. "Filel") - strThisFile 

Else 

System. PrivateProfileString _ 

("", strRegistry, "Filel") - strThisFile 
End 
End If 

If strThisFile <> System. Pri vateProfi 1 eStri ng 
("", strRegistry, "File2") Then 
System. Pri vateProfi 1 eStri ng _ 

("", strRegistry, "File2") - strFilel 



Else 



System. PrivateProfileString 



(" 
End 



strRegistry, "File2") - strFilel 



End If 

If strThisFile 
("". 



Else 



<> System. Pri vateProfi 1 eStri ng 
strRegistry. "File3") Then 
System. Pri vateProfi 1 eString _ 
("", strRegistry, "File3") 



strFile2 



(" 
End 

End If 

If strThisFile 



System. Pri vateProfi 1 eStri ng 



strRegistry, "File3") - strFile2 



<> System. Pri vateProfi 1 eStri ng _ 
strRegistry, "File4") Then 
System. PrivateProfileString _ 
("". strRegistry. "File4") 



strFile3 



Else 



(" 
End 

End If 

If strThisFile 



System. Pri vateProfi 1 eStri ng 



strRegistry. "File4") - strFile3 



Else 



<> System. Pri vateProfi 1 eString _ 
("", strRegistry, "File5") Then 
System. Pri vateProfi 1 eSt ri ng 

("", strRegistry, "File5") - strFile4 



System. Pri vateProfi 1 eSt ri ng 

("". strRegistry, "File5") - strFile4 
End 

End If 

If StrThisFile <> System. Pri vateProfi 1 eStri ng _ 
("", strRegistry, "File6") Then 
System. Pri vateProfi 1 eStri ng 

("". strRegistry, "F1le6") - strFile5 



Else 



System. Pri vateProfi leString 



(" 
End 



strRegistry, "File6") - strFile5 



End If 

If StrThisFile 
("". 



Else 



<> System. Pri vateProfi 1 eStri ng _ 
strRegistry, "File7") Then 
System. Pri vateProfi 1 eSt ri ng 

("", strRegistry. "File7") - strFile6 



(" 
End 

End If 

If strThisFile 



System. Pri vateProfi leString 



strRegistry. "File7") - strFile6 



<> System. Pri vateProfi 1 eString 
strRegistry, "File8") Then 



CONTINUED ON NEXT PAGE. 



>E. 

Listing 4. Make Word Keep Track of the Files You Close So You Can Reopen Them Quickly. This subprocedure builds and 
maintains a list of the last 25 files you've closed, storing the information in a custom key in the Registry. 
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CONTINUED FROM PREVIOUS PAGE. 

System. PrivateProfileString _ 

("", strRegistry. "File8") - strFile7 

Else 

System. Pri vateProfi 1 eStri ng _ 

("", strRegistry, "File8") - strFile7 
End 

End If 

If strThisFile <> System. Pri vateProfi 1 eStri ng _ 
("". strRegistry, "File9") Then 
System. PrivateProfileString _ 

("", strRegistry, "File9") - strFile8 

Else 

System. Pri vateProfi 1 eStri ng _ 

("", strRegistry, "File9") - strFile8 
End 

End If 

If strThisFile <> System. Pri vateProfi 1 eStri ng _ 
("". strRegistry. "FilelO") Then 
System. PrivateProfileString _ 

("", strRegistry, "FilelO") - strFile9 

Else 

System. Pri vateProfi 1 eStri ng 

("", strRegistry, "FilelO") - strFile9 
End 

End If 

If strThisFile <> System. PrivateProfileString 
("", strRegistry. "Filell") Then 
System. PrivateProfileString 

("", strRegistry, "Filell") - strFilelO 

Else 

System. Pri vateProfi 1 eStri ng _ 

("", strRegistry. "Filell") - strFilelO 
End 

End If 

If strThisFile <> System . Pri vateProfi 1 eStri ng _ 
("". strRegistry, "Filel2") Then 
System. PrivateProfileString _ 

("". strRegistry. "Filel2") - strFilell 

Else 

System. Pri vateProfi 1 eStri ng _ 

("". strRegistry. "Filel2") - strFilell 
End 

End If 

If strThisFile <> System. Pri vateProfi 1 eStri ng 
("", strRegistry, "Filel3") Then 
System. Pri vateProfi 1 eString _ 

("", strRegistry. "Filel3") - strFilel2 

Else 

System. Pri vateProfi 1 eStri ng _ 

("". strRegistry, "Filel3") - strFilel2 
End 

End If 

If strThisFile <> System. Pri vateProfi 1 eStri ng 
("", strRegistry, "F1lel4") Then 
System. Pri vateProfi 1 eStri ng 

("", strRegistry. "Filel4") - strFilel3 

Else 

System. Pri vateProfi 1 eStri ng _ 

("". strRegistry, "Filel4") - strFilel3 
End 

End If 

If StrThisFile <> System. Pri vateProfi 1 eStri ng 
("", strRegistry, "Filel5") Then 
System. Pri vateProfi 1 eSt ri ng 

("", strRegistry, "Filel5") - strFilel4 

Else 

System. Pri vateProfi 1 eString _ 

("", strRegistry. "Filel5") - strFilel4 
End 

End If 

If strThisFile <> System. Pri vateProfi 1 eStri ng 
("", strRegistry, "Filel6") Then 
System. Pri vateProfi 1 eStri ng 

("". strRegistry, "Filel6") - strFilel5 



Else 



End If 



System. Pri vateProfi 1 eString _ 
("". strRegistry. "Filel6") 
Eriii 



strFilel5 



.PrivateProfileString _ 



("", strRegistry, "Filel7") Then 
System. PrivateProfileString _ 

("", strRegistry, "Filel7") - strFilel6 

Else 

System. Pri vateProfi 1 eStri ng _ 

("". strRegistry, "Filel7") - strFilel6 
End 

End If 

If strThisFile <> System. Pri vateProfi 1 eStri ng _ 
("", strRegistry, "Filel8") Then 
System. PrivateProfileString _ 

("", strRegistry, "Filel8") - strFilel7 

Else 

System. Pri vateProfi 1 eStri ng _ 

("". strRegistry, "Filel8") - strFilel7 
End 

End If 

If strThisFile <> System. Pri vateProfi 1 eString _ 
("", strRegistry, "Filel9") Then 
System. PrivateProfileString _ 

("". strRegistry, "Filel9") - strFilel8 

Else 

System. PrivateProfileString _ 

("". strRegistry, "Filel9") - strFilel8 
End 

End If 

If strThisFile <> System. Pri vateProfi 1 eStri ng _ 
('"'. strRegistry, "File20") Then 
System. Pri vateProfi 1 eString _ 

("•'. strRegistry. "File20") - strFilel9 

Else 

System. Pri vateProfi 1 eStri ng _ 

("", strRegistry, "File20") - strFilel9 
End 

End If 

If strThisFile <> System. Pri vateProfi 1 eStri ng _ 
("", strRegistry, "File21") Then 
System. PrivateProfileString _ 

("", strRegistry. "File21") - strFile20 

Else 

System. Pri vateProfi 1 eStri ng _ 

("", strRegistry, "File21") - strFile20 
End 

End If 

If strThisFile <> System. Pri vateProfi 1 eString _ 
("". strRegistry, "File22") Then 
System. Pri vateProfi 1 eStri ng _ 

("". strRegistry, "File22") - strFile21 

Else 

System. Pri vateProfi 1 eStri ng _ 

("", strRegistry, "File22") - strFile21 
End 

End If 

If strThisFile <> System. Pri vateProfi 1 eStri ng _ 
("", strRegistry, "File23") Then 
System. Pri vateProfi 1 eStri ng 

("", strRegistry, "File23") - strFile22 

Else 

System. Pri vateProfi 1 eStri ng „ 

("". strRegistry, "File23") - strFile22 
End 

End If 

If strThisFile <> System. Pri vateProfi 1 eStri ng 
("". strRegistry, "File24") Then 
System. PrivateProfileString _ 

("", strRegistry, "File24") - strFile23 

Else 

System. Pri vateProfi 1 eSt ri ng 

("", strRegistry, "File24") - strFile23 
End 

End If 

If strThisFile <> System . Pri vateProfi 1 eStri ng 
("". strRegistry, "File25") Then 
System. Pri vateProfi leString _ 

("", strRegistry, "File25") - strFilf 

Else 

System. Pri vateProfi 1 eStri ng 

("", strRegistry. "File25") - strFile24 
End 

End If 
End Sub 
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"File2") - strFilel 

Else 

System. Pri vateProf i 1 e _ 

StringC", strRegistry, _ 
"File2") - strFilel 

End 

End If 

The first item is different because, 
match or no match, the subprocedure 
needs to set the first item (Filel) 
to strThisFile. Again, if there is a 
match, the subprocedure terminates. 
This adds the file currently being closed 
to the top of the list and moves each 
existing item down one place. If the 
file being closed is one of the files on 
the list, it moves to the top of the 
list but loses the listing it previously 
had, to avoid double-listing it: 

If StrThisFile <> _ 

System. Pri vateProf i leSt ring ("" . 
strRegistry, "Filel") Then 

System. Pri vateProf i leString ("". _ 
strRegistry. "Filel") - 
strThi sFi 1 e 

Else 

System. Pri vateProf i 1 eStri ng( "" , 
strRegistry, "Filel") - ._ 



strThisFile 

End 
End If 

CREATE THE USERFORM 

You've finished the hard part. Now create 
the userform. If you're used to spending 
ages constructing complex userforms, 
take heart — this one is dead simple. 

With the appropriate template (prob- 
ably Normal) selected in the VB Editor, 
choose UserForm from the Insert menu. 
The VB Editor starts a new userform named 
UserForm 1. Grab the lower-right sizing 
handle on the outside of the userform, and 
drag it out and down until the userform is 
a decent size. Then turn your attention to 
the Properties window — press F4 to dis- 
play it if it's hidden. Change the Name 
property to the name you want for the 
form; I'll use frmOpenRecentFile. Change 
the Caption property to "Open Recent File" 
to change the title of the userform. 

Leave the other properties of the 
userform at their defaults, and click on 
the ListBox icon in the Toolbox. Click in 
the upper-left corner of the userform and 
drag to create a list box that takes up most 
of the top 80 percent of the userform, 
leaving enough space at the bottom for a 



couple command buttons. Set the Name 
property of the list box to "IstFiles." If you 
like, you can create a smaller list box and 
have a scrollbar in your userform, but 
that spoils the effect of having all the file 
names displayed for you. 

Now create a pair of command but- 
tons at the bottom of the userform. Click 
on the CommandButton icon in the 
Toolbox, and click on the userform to 
place the first button. Resize the button if 
you want — the VB Editor likes them big 
and clunky — and hold down Ctrl and drag 
the button to copy it. Hold down Ctrl 
again, select the original button, and use 
the commands on the Format menu to 
align the buttons (Format I Align I Tops) 
or move them closer together 
(Format I Horizontal Spacing I Decrease). 
Set the Name property of the left-hand 
button to "cmdOpen," the Accelerator 
property to "O," the Caption property to 
"Open," the Default property to "True," 
and the Enabled property to "False." If 
you're feeling energetic, enter "Click this 
button to open the selected document" 
for the ControlTipText property to create 
a ScreenTip when the user hovers the 
mouse pointer over the button. 

Set the properties for the right-hand 



VBA 

Private Sub UserForm_Ini tial i ze( ) 
Dim strRegistry As String 

strRegistry - "HKEY_CURRENT_USER\Sof tware\" & 
"Mi crosof t\0f f i ce\8. 0\ Common \ Recent Fi 1 es" 
IstFiles. Addltem System. Pri vateProf i 1 eStri ng 

("", strRegistry. "Filel") 
1 stFi 1 es .Addltem System. Pri vateProf i leString 

("", strRegistry, "File2") 
1 stFi 1 es .Addltem System. Pri vateProf i 1 eString 

("", strRegistry. "File3") 
IstFiles. Addltem System. Pri vateProf i 1 eStri ng 

("", strRegistry, "File4") 
1 stFi 1 es .Addltem System. Pri vateProf 1 1 eString 

("", strRegistry, "File5") 
1 stFi 1 es .Addltem System. Pri vateProf i 1 eString 

("", strRegistry. "File6") 
IstFiles. Addltem System. Pri vateProf i 1 eStri ng 

("", strRegistry, "File7") 
1 stFi 1 es .Addltem System. Pri vateProf i 1 eStri ng 

("". strRegistry, "File8") 
IstFiles. Addltem System. Pri vateProf i 1 eStri ng _ 

("", strRegistry. "File9") 
IstFiles. Addltem System. Pri vateProf i 1 eString 

("", strRegistry, "FilelO") 
1 stFi 1 es .Addltem System. PrivateProfileString 

("", strRegistry, "Fi 1 ell") 
IstFiles. Addltem System. Pri vateProf i 1 eStri ng 

("", strRegistry, "Filel2") 
1 stFi 1 es .Addltem System. Pri vateProf i 1 eStri ng 

("", strRegistry, "Filel3") 
1 stFi 1 es .Addltem System. Pri vateProf i 1 eString 

("", strRegistry. "Filel4") 
1 stFi 1 es .Addltem System. Pri vateProf i 1 eString 

("". strRegistry, "Filel5") 
IstFiles. Addltem System. Pri vateProf i 1 eStri ng 

("", strRegistry, "Filel6") 
IstFiles. Addltem System. PrivateProfileString 

("", strRegistry, "Filel7") 
1 st Fi 1 es . Addltem System. Pri vateProf i 1 eStri ng _ 



("", strRegistry. "Filel8") 
IstFiles. Addltem System.PrivateProfileString 

("", strRegistry. "Filel9") 
1 stFi 1 es .Addltem System. Pri vateProf i 1 eString 

("", strRegistry, "File20") 
1 stFi 1 es .Addltem System. Pri vateProf i 1 eStri ng 

("", strRegistry, "File21") 
1 stFi 1 es .Addltem System. Pri vateProf i leString 

("", strRegistry. "File22") 
IstFiles. Addltem System.PrivateProfileString 

("", strRegistry, "File23") 
IstFiles. Addltem System.PrivateProfil eStri ng 

("", strRegistry, "File24") 
IstFiles. Addltem System.PrivateProfileString 

("", strRegistry, "File25") 
End Sub 

Private Sub cmdOpen_Cl i ck( ) 
f rmOpenRecentFi 1 e .Hide 
On Error GoTo Handler 
Documents . Open 1 stFi 1 es . Val ue 
Handler: 

If Err - 5174 Then 

MsgBox "Word could not find the document " 
& IstFiles. Value & ".", vbOKOnly + _ 
vbCri ti cal , _ 
"Error Opening File" 
End If 

Set frmOpenRecentFile - Nothing 
End Sub 

Private Sub 1 stFi les_Cl ick( ) 

cmdOpen . Enabled - True 
End Sub 

Private Sub cmdCancel^Cl ick( ) 
End 

Set frmOpenRecentFile - Nothing 
End Sub 



Listing 5. Code for the frmOpenRecentFile Userform. Initialize the userform by populating the list box with strings retrieved from 
the Registry. Then use Click events keyed to the controls in the userform to direct program flow. 
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button: Name: "cmdCancel"; Accelerator: 
"C; Cancel: "True"; Caption: "Cancel"; 
and ControlTipText: "Click this button to 
cancel the procedure." 

The interface is now blessedly finished. 
Take a minute to do your carpal stretches , 
then proceed. 

Now add the code that drives the 
userform. This consists of four proce- 
dures: a UserFormJnitialize procedure 
to get the right information into the list 
box; a Click procedure for the list box to 
enable the Open button once the user has 
selected a document; and Click proce- 
dures for the Cancel button and the Open 
button (see Listing 5). 

Start by double-clicking on the 
userform's Cancel button. The VB Editor 
displays the code sheet for the userform 
and starts creating a subprocedure keyed 
to the Click event for the button: 

Private Sub cmdCancel_Cl i ck( ) 
End Sub 

Enter these statements between the 
Private and End Sub lines, and the 
subprocedure is ready: 

End 

Set f rmOpenRecentFi 1 e - Nothing 

Create a subprocedure keyed to the 
Click event of the Open button. Double- 
click on the Open button if the form is 
visible to start the subprocedure, or 
type in the structure and add these lines: 

Private Sub cmdOpen_Cl i ck( ) 
f rmOpenRecentFi 1 e . Hi de 
On Error GoTo Handler 
Documents .Open 1 stFi 1 es .Val ue 
Handl er: 

If Err - 5174 Then 

MsgBox "Word could not find " & _ 
"the document " & 
1 stFi les. Value & ".". _ 
vbOKOnly + vbCritical , 
"Error Opening File" 
End If 

Set f rmOpenRecentFi 1 e - Nothing 
End Sub 

The code uses the Hide method to 
remove the userform from view, then 
opens the document chosen in the 
IstFiles list box. A simple error handler 
takes care of the error most likely to 
occur, since Word can't open the docu- 
ment because the user has moved or 
deleted it. Error or not, the code re- 
moves the form from memory by setting 
it to Nothing. 

Create a subprocedure keyed to the 
Click event of the IstFiles list box. This 
subprocedure simply sets the Enabled 
property of the cmdOpen button to True: 



Open Recent File 




m 





C:\ProiectslGermany in the 1940s\E 



C:\Proiects\Huridred '' 



\Hyperinflation and Economic Theories.doc 



of fJutrition.doc 



C:\Projects\Germany in the 1940s\Edited\Turn of the Decade (working). doc 
F:\Common\Laws of attrition.doc 

C:\Projects\Nadir Industries Web Site\cd_avi_no_sound.htm 
C:\Projects\Nadir Industries Web Site\copyopen.htm 
C:\Projects\Nadir Industries Web Site\copy_clipboard.htm 
C:\Projects\Nadir Industries Web Site\form_l.htm 
C:\Projeccs\Nadir Industries Web Site\macro_out,html 
C:\Projects\Nadir Industries Web Site\lockproj.html 
C:\Projects\Nadir Industries Web Site\slomacro.html 
C:\Projects\Nadir Industries Web Site\wordpptl.htm 
C;\Projects\Nadir Industries Web Site\wordvba.htm 
C:\Projects\Gerrnany in the 1940s\Revised\Early.doc 
C;\Projects\Germany in the 1940s\Revised\Mid to Late. doc 
C:\Projects\Germany in the 1940s\Edited\Early.doc 
C:\Projects\Germany in the 1940s\Edited\Mid to Late. doc 
\\NEUROMANCER\Neuro_C\temp\Thought for the Week, doc 
C:\Projects\Germany in the 1940s\Mid to Late, doc 
C:\Projects\Germany in the 1940s\Early.doc 
C;\Projects\Germany in the 1940s\Turn of the Decade (working), doc 
Ci\Projects\Germany in the 1940s\Hyperinflation and Economic Theories.doc 
C:\Projects\Hundred Years War\Language and Threats.doc 
C:\Projects\Hundred Years War\Food and Drink.doc 



Figure 2. See All Those Files. The Open Recent File dialog box provides instant access 
to the last 25 files you closed. 



Private Sub 1 stFi 1 es_Cl ick( ) 

cmdOpen . Enabl ed - True 
End Sub 

This subprocedure prevents the user 
from choosing the Open button without 
selecting a document in the list box. 

Now for the big one — the User- 
FormJnitialize subprocedure. This 
subprocedure uses the Addltem method 
to add the strings contained in 25 custom 
Registry entries into the IstFiles list box. 
Because the location of the custom Regis- 
try key I've used is buried seven levels 
deep in the Registry, I've declared a string 
variable strRegistry to contain it, simply to 
shorten the next 25 statements. 

Finally, create a short subprocedure 
to display the userform: 

Public Sub OpenRecentFileO 

f rmOpenRecentFi 1 e . Show 
End Sub 

Assign this subprocedure to a toolbar 
button, menu item, or keyboard shortcut, 
and you're in business. Each time 
you close a document using the 
CloseAddToRecentFiles subprocedure, 
Word stores the document's full name — 
including the path — in the Registry. 
By running the OpenRecentFile 
subprocedure, you can display the dialog 
box of your 25 most recently used files 
and open one (see Figure 2). 

You can extend this subprocedure to 
further documents by extending the code 
and creating more Registry entries. Fifty 
documents, 75 documents, 100 docu- 



ments — it's up to you. I've limited the 
number to 25 to keep the code short 
enough for this article, and because 
there's a modest performance hit when 
you run the subprocedure. On a low-end 
Pentium computer, it takes a second or so 
extra to close the document — nothing 
painful, and probably not noticeable on a 
thundering Pentium II machine. But as 
you add more documents to the list, the 
performance penalty increases. 

There you are: 10 VBA tweaks to two 
key areas of Word. Even if you don't use all 
these, I hope they've given you some idea 
of what you can do with VBA to customize 
Word and make your working life — and 
that of your colleagues — easier. M 



Code Online 



You can find all the code published in this 
issue of Getting Started with Visual Basic on 
The Development Exchange (DevX) at http:// 
www.windx.com. For details, please see "Get 
Extra Code in DevX's Premier Club," in the 
Table of Contents. 

1 Easy Word Gist omizations 
Locator+ Codes 

Listings for the entire issue, plus a code mod- 
ule containing custom subprocedures for 
working with Find and Replace and for work- 
ing with documents, plus a sample form pro- 
viding quick access to your previous 25 docu- 
ments (free Registered Level): GS298 
Listings for this article only, plus the code 
module and sample form described above 
(subscriber Premier Level): GHDGS298 
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Use VBScript for 



Web Tasking 



With only a gentle 
learning curve, you 
can use VBScript to 
program client-side 
Web pages using 
Internet Explorer. 



A scripting language is an 
interpreted language that you 
use to automate or script 
tasks. Several scripting lan- 
guages have evolved for use on the World 
Wide Web. VBScript— officially Visual Ba- 
sic, Scripting Edition — is a stripped-down 
version of the Visual Basic for Applica- 
tions (VBA) language that Microsoft has 
created primarily for Web development. 
The best reason for using VBScript over 
other scripting languages is that you al- 
ready know it. Sure, VBA and VBScript are 
somewhat different, but you're already 90 

Paul Litwin is a sen ior consultant with MCW 
Technologies, focusing on application 
development employing Visual Basic, 
Visual InterDev, Access, and Office. He has 
written several books, including Access 97 
Developer's Handbook, VBAFor Dummies 
Quick Reference, and Intranet and Web 
Databases For Dummies. Reach Paul by 
e-mail at plitwin@mcwtech.com. 



by Paul Litwin 



percent of the way there if you're com- 
fortable programming in VB or VBA. For 
example, is this procedure VB, VBA, or 
VBScript? 



Sub SayHi ( ) 

MsgBox "Hi' 
End Sub 



vbOkOnly, "Using VBA" 



The answer is "all of the above." This 
procedure works in VB, Word, Access, 
and on your Internet Explorer Web page. 
Try to write this 
same procedure in 
JavaScript or Perl, 
two other popular 
scripting langu- 
ages. If you're not 
familiar with these 
scripting langu- 
ages, you're going 
to have to do a bit 
of homework be- 
fore you can write 
procedures even as 
simple as this. With 
VBScript, however, 
you don't need to 
shift paradigms — 
your current VBA 
knowledge already 
puts you in the right 
programming para- 
digm. 

VBScript, how- 
ever, differs from 
its older sibling 
language in sev- 
eral ways (see 
Table 1). First of 
all, unlike VBA, 



VBScript is an interpreted language with- 
out an integrated development environ- 
ment. This means that you don't get the 
benefit of compile-time checking of your 
code, nor do you get to program using 
the IntelliSense features built into Office 
97 and VB5. In addition, the VBScript 
language lacks a number of features found 
in the VBA language. Finally, VBScript 
includes a few language features not 
found in VBA. 

The differences — especially the little 




Please Enter Values for the New Customer 



First Name: |George Washington 




Figure 1 . The Client Validates. The client-side VBScript code 
behind this form executes whenyou click on the Save Record button. 
In this case, the validation code has detected that a required field 
has been left blank, so it displays a message box. The client 
performed this validation without any trip to the server — in other 
words, it was fast. 
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Feature 


Supported in VBScript? 


Arrays 


L 

Option Base not supported; neither is specifying the lower bound for an array,' all array 




dimensions start at zero. 


fnllpftinrK 


Custom rnllprtinns not snnnnrtpd In addition vnu rnn't rpfpr In plpmpnts in huilt-in rnllpctinns with 

V.UJIUIII IUIIGLIIUII3 IIUI 3UUUUI IGU. Ill UUUIIIUII, 11/11 Villi 1 Itltl IU GIGIIIGIIIJ III UUIII III lUIIUMIUIIJ Willi 

bang (I). 


Conditional compilation 


Not supported. 


DoEvents 


Not supported. 


GnTn GoStih On GnSnh 


Nnt ^iinnnrtpn* nn nrpnt n<:^ hprp 

iiui juuuui igu, iiu yi gui iujj iici c 


On Error GoTo, Resume, Resume Next, Resume label, Erl, and Error 


Can't set or use error handlers. The only error handling supported is inline, using On Error Resume 




Npxt Thp Frr nhipft k sunnnrtpd 
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Line numbers and line labels 


Not supported. 


Ivor, CVDate, Mr, and val 


Not supported. 


Variable declarations 


line • . 1 j. m • i \i i\' nil' 1 n ■ i ■ i ■ 1 » /< 

VBScript only supports Variants. You can use Dim, Public, and Private statements, but you can t 




specify data types. You can't use the New, Optional, ParamArray, and Static keywords. 


For...Next loops 


Fully supported, except VBScript doesn't like you to specify the index variable in the Next 




statement. For example, "Next" is OK, but "Next intl" is not. 


User-defined types 


Not supported. 


Witb...EndWith 


Not supported. 


Date ond Time statements 


Not supported, but Date and Time functions are supported. 


Timer 


Not supported. 


DDE statements and functions 


Not supported. 


Declare statement 


API ca Is not sunDnrted fnr safety reasons 

ni i iuiij iiui jjuuui it*u iui juisiy igujuiu. 


Class modules ond property procedures 


Not supported. 


Debug object 


Not supported. 


rnn nnn ^fnn 
EMU UIIU JlUU 


hoi supporiea. 


File I/O statements and functions 


Not supported for safety reasons. ASP, however, includes objects (FileSystem and TextStream) 




and methods for reading from and writing to text files. 


Financial functions 


Not supported. 


MonthName and WeekDayName functions 


These new VBScript functions are not part of VBA. 


Objects 


VBScript supports several new objects: the Dictionary object (similar to the VBA Collection object), 




iL r*l f i L* i I "J i xL !■! . \ j .1 t iri L* i / "J 

the FileSystem ob|ect (provides access to the file system), and the TextStream object (provides 




seauentiol text file access) For securitv reasons the FilpSvstem nnd TpxtStrpnm ohipfts nrp nnt 
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available for client-side scripting. 


Operators 


Like operator not supported. 


Options 


Option Compare, Option Private Module, and Deftype not supported. 


Select Case 


Use of operators in Case clauses not supported. 


String manipulation 


Mid statement, LSet, RSet, and StrConv not supported. 







Table \ .How VBScript Differs from VBA. VBScript is a 
support for custom collections, financial functions, and file 
memory than VBA. 



stripped-down version of the VBA language. Several features, such as VBA's 
I/O operations, are missing. On the other hand, VBScript takes up a lot less 



differences such as VBScript's lack of sup- 
port for the use of operators in Case 
statements — can occasionally bite you, 
but your wounds are much smaller than 
you'd get learning an entirely new lan- 
guage such as Perl or JavaScript. 

You can use VBScript to program cli- 
ent-side Web pages using Internet Ex- 
plorer (IE) versions 3.0 and 4.0. In addi- 
tion, you can use VBScript to create server- 
side Active Server Pages (ASP) that work 
with Microsoft's Internet Information 



Server and compatible Web servers. 
VBScript is also the programming lan- 
guage built into Microsoft Outlook. In this 
article, I'll focus on using VBScript for 
client-side Web programming. 

You might be asking yourself why we 
even need VBScript. Why don't Internet 
Explorer, Internet Information Server, and 
Outlook directly support the VBA lan- 
guage? The two basic reasons are memory 
footprint and safety. By removing some 
features from VBScript, such as support 



for collections, error traps, and financial 
functions, Microsoft made VBScript leaner 
and meaner, taking up significantly less 
memory than VBA. In addition, because 
of safety concerns, Microsoft removed 
features from VBScript that were consid- 
ered dangerous in the context of a user's 
browser, such as the ability to access the 
file system. 

PROGRAMMING THE CLIENT SIDE 

One of the most compelling reasons for 
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Get Full Text and Source Code from 
Visual Basic Programmer's Journal— on CD! 

Each CD is delivered monthly so you get each issue's code right away. 

Now you get all this information on one CD every month. Get a one year subscription 
(12 issues) for ONLY $99.95. Order now: call 800-848-5523 (from outside the U.S. call 
650-833-7100 or fax 650-321-3818). 




prevraw window n your F 

Del 

by Dan Fergus 

Despite best efforts, bugs can and will creep Ho you eops You can't » 
these pesky ctWers. but you can deal with them. Set aside a trtack of lime, push 
up your sleeve; take a deep breath, and begm debuggng 

. -: . - :_ ^ne Year 2000 



hp sim Q 

VB makes it easy to write tore Year 2000 and date-handtiriQ code, but it doesn^ 
dot lot you Thatrtde oBm hdphit(M and adwoe la deding w*h date 

Migrate To RDO For Faster Data Access 



bit Glefi Grant 

Would you &e to switch tiom Mfl to ROD ft* 32-bi ODBC database access? 
By comparing DA0 concepts to ADO. (hn amde w*i you through a 
step-by-step approach to making the transition. 



: 



• The Current and Back Issues from 1996 
Forward 

Every CD contains 1500 pages of tips, tricks, and tech- 
niques for the VB developer, provided in electronically 
readable Adobe Acrobat format. No more tedious typing 
of code listing, no more waiting for downloads. 

• Demos and Shareware 

Now integrated with the new user-interface. Test drive the 
newest OCXs and VBXs available, plus over 50 shareware 
products for you to sample. 



Visual Basic is a registered trademark of Microsoft Corporation. VBCD, DevX, and 
the Development Exchange are trademarks of Fawcette Technical Publications. 



• Database of 2,000+ Programming Tools 

Search through more products faster than ever! 

• Sample Apps and Utilities 

Get an HR tracking program, plus a customer service 
order-entry database, both with source code. 

• Free Access to The Development 
Exchange Premier Club 

A $40 value at no extra cost. You'll 
get augmented code, shareware, new 
product demos and other utilities. 
Access DevX at www.windx.com 

Call TODAY To Order 800.848.5523 

or outside the U.S. 650.833.7100 
650.321.3818 orwww.windx.com 
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VBS 

<HTML> 
<HEAD> 

<TITLE>NewCust.htm Exampl e</TITLE> 

</HEAO> 

<BODY> 

<H1> Please Enter Values for the New Customer </Hl> 

<F0RM NAME- "frmCust" METH0D-"P0ST" 

ACTION-"NewCust.ASP"> 

<TABLE> 

<TRXTD>Fi rst Name:</TD> 

<TDXINPUT NAME-"Fi rstName" SIZE-20X/TDX/TR> 
<TRXTD>Last Name:</TD> 

<TDXINPUT NAME-"LastName" SIZE-20X/TDX/TR> 
<TRXTD>Address : </TD> 

<TDXINPUT NAME-"Address" SIZE-40X/TDX/TR> 
<TRXTD>Ci ty : </TD> 

<TDXINPUT NAME-"Ci ty" SIZE-20X/TDX/TR> 
<TRXTD>State : </TD> 

<TDXINPUT NAME-"State" SIZE-6X/TDX/TR> 
<TRXTD>ZipCode:</TD> 

<TDXINPUT NAME-"Zi pCode" SIZE-10X/TDX/TR> 
</TABLE> 

<BRXINPUT TYPE-"BUTTON" NAME-"cmdButton" 
VALUE-"Save Record"> 

<INPUT TYPE-"RESET" VALUE-"Reset Fields"> 
<BRXBRXA HREF-"vbscript.htm">Abandon edits 
and return to home page</A> 
<SCRIPT Language-"VBScript"> 

<I-- 

Sub cmdButton_OnClick() 

If Len(frmCust.FirstName. Value) - Then 

MsgBox "You must complete the first name " & _ 

"field."., "Validation Error" 
' Set the focus to the FirstName ctl 
f rmCust . Fi rstName . Focus 
Elself Len(f rmCust . LastName. Val ue) - Then 
MsgBox "You must complete the last name " & _ 

"field.",, "Validation Error" 
' Set the focus to the LastName ctl 
f rmCust. LastName. Focus 
Elself Len(frmCust.ZipCode. Value) - Then 

MsgBox "You must complete the zipcode field.",, _ 

"Validation Error" 
' Set the focus to the ZipCode ctl 
frmCust.ZipCode. Focus 
Else 

f rmCust . Submi t 
End If 
End Sub 
--> 

</SCRIPT> 
</F0RM> 

</B0DY> 
</HTML> 



Listing 1. Validating the Form. The VBScript code on this Web 
page performs client-side validation before the browser submits 
the form 's data to the server. Unfortunately, this page won 't work 
correctly with Netscape Navigator or other non-Microsoft browsers. 

using VBScript on the client side of a Web application is to 
reduce the number of potentially expensive round trips be- 
tween the Web client and the Web server. For example, many 
Web applications collect data from a user using an HTML form. 
When the user clicks on the Save Record button of this form, the 
client submits the form's data to a server-side CGI or ASP 
program, which then validates and processes the entered val- 
ues. If one or more fields are invalid, server-side code must 
inform the user of the mistake and the user tries again. Unfortu- 
nately, this scenario results in one or more extra round trips 
between client and server. Over a slow connection or when the 
Internet is especially slow, this extra delay can irritate users and 



VBS 

<HTML> 
<HEAD> 

<TITLE>NewCust2.htm Exampl e</TITLE> 

</HEAD> 

<B0DY> 

<H3> Please Enter Values for the New Customer </H3> 



<F0RM NAME- "frmCust" METH0D-"P0ST" 

ACTION-"NewCust.ASP"> 

<TABLE> 

<TRXTD>Fi rst Name:</TD> 

<TDXINPUT NAME-"Fi rstName" SIZE-20X/TDX/TR> 
<TRXTD>Last Name:</TD> 

<TDXINPUT NAME-"LastName" SIZE-20X/TDX/TR> 
<TRXTD>Address : </TD> 

<TDXINPUT NAME-"Address" SIZE-40X/TDX/TR> 
<TRXTD>Ci ty : </TD> 

<TDXINPUT NAME— "Cl ty" SIZE-20X/TDX/TR> 
<TRXTD>State : </TD> 

<TDXINPUT NAME-"State" SIZE-6X/TDX/TR> 
<TRXTD>ZipCode:</TD> 

<TDXINPUT NAME-"Zi pCode" SIZE-10X/TDX/TR> 
</TABLE> 

<BRXINPUT TYPE-"SUBMIT" NAME-"cmdSubmi t" 
VALUE-"Save Record"> 

<INPUT TYPE-"RESET" VALUE="Reset Fields") 
<BRXBRXA HREF-"vbscript.htm">Abandon edits 
and return to home page</A> 
<SCRIPT Language-"VBScript"> 

<!- 

Function cmdSubmi t_0nCl i ck( ) 

' This default return value will 

' cancel the submit event 

cmdSubmi t_0nCl ick - False 

If Len(f rmCust. Fi rstName. Val ue) - Then 

MsgBox "You must complete the first name " & _ 

"field.",, "Validation Error" 
frmCust . Fi rstName. Focus 
Elself Len(frmCust. LastName. Value) - Then 
MsgBox "You must complete the last name " & _ 

"field.",, "Validation Error" 
frmCust . LastName . Focus 
Elself Len(frmCust. ZipCode. Value) - Then 

MsgBox "You must complete the zipcode field.", 

"Validation Error" 
frmCust.ZipCode. Focus 
Else 

cmdSubmit_OnClick - True 
End If 
End Function 
--> 

</SCRIPT> 
</F0RM> 



</B0DY> 
</HTML> 




Listing 1. It Works with Both. This Web page works better when 
run under Internet Explorer version 3.0 or 4.0, but it still works 
when run from a non-VBScript-enabled browser. 

might even cause them to hit the Stop button and jump to 
another Web site. 

With client-side VBScript code embedded in the Web 
page, however, you can validate the user entries before the 
client submits the form to the server, potentially avoiding 
several additional client/server round trips (see Listing 1). 
This client-side code validates the entries, and notifies the 
user when required fields, such as ZipCode, are left blank 
(see Figure 1). 

This code is part of the NewCust.htm Web page, which 
contains a single VBScript block: 

<SCRIPT Language-"VBScript"> 

<!- 
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Object 


Properties 


Methods 


Events 


Document 


LinkColor, ALinkColor, 
VLinkColor, FGColor, 
BGColor, LastModified, Title, 
Cookie, Referrer 


Open, Close, Write, 
WriteLn, Clear 


(none) 


Form 


Action, Encoding, Method, 
Target 


Submit 


OnSubmit 


Input control 


Name, Value, DefaultValue, 
Checked, DefaultChecked 


Focus, Blur, Select, 
Click 


OnFocus, OnBlur, OnSelect, OnClick, 
OnChange 


Select control 


Name, Length, Selectedlndex 


Focus, Blur 


OnFocus, OnBlur, OnChange 


TextAreo control 


Name, Value, DefaultValue 


Focus, Blur, Select 


OnFocus, OnBlur, OnSelect, OnChange 



Table 2. Using Common Objects from the Browser Object Model. The hardest part 
about programming client-side Web pages is figuring out the browser's object model. Here are 
some of the more common browser objects, along with a list of their properties, methods, and 
events. Note that various forms of the Input control support only a subset of the properties, 
methods, and events. For example, the text-box input control doesn 't support the Checked or 
DefaultChecked property, nor does it support the Click method or OnClick event. 



Sub cmdButton_OnCl ick( ) 

If Len(frmCust.FirstName. Value) _ 
- Then 

MsgBox "You must complete " & _ 
"the first name field.",, _ 
"Validation Error" 

' Set focus to the FirstName ctl 

f rmCust . Fi rstName . Focus 

Else 

frmCust. Submit 
End If 
End Sub 

-> 

</SCRIPT> 

You embed VBScript code in a Web 
page using the <SCRIPT> HTML tag. In 
this script block, I've created an event 
procedure, cmdButton_OnClick, which 
by virtue of its name is hooked up to the 
cmdButton HTML input button control's 
OnClick event. The code within this event 
procedure probably looks familiar. You 
refer to HTML controls in VBScript ex- 
actly as you refer to controls on a VB, 
Access, or User form. The only tricky 
part is learningthe browser object model 
and its properties, methods, and events 
(see Table 2). 

WHAT ABOUT OTHER BROWSERS? 

When creating scripts, you need to con- 
sider the effect of your scripting code 
in non-VBScript-enabled browsers. So 
far, only IE3 and IE4 support VBScript, 
which means that your code doesn't 
work as intended in other browsers, 
most notably Netscape's browsers. This 
might not be a problem if you're devel- 
oping applications in a tightly con- 
trolled intranet environment, but you 
won't always have that luxury. Fortu- 



nately, if you load your VBScript-laden 
Web pages using recent versions of 
Netscape browsers, the browser sim- 
ply ignores the VBScript code because 
even though Netscape browsers don't 
support VBScript, the browsers under- 
stand the <SCRIPT> tag and know 
enough to ignore any scripting language 
they're not equipped to handle. Other 
browsers, however, includingolderver- 
sions of Internet Explorer and Netscape 



Navigator, might not react so nicely. In 
fact, browsers that don't understand 
the <SCRIPT> tag tend to print your 
scripting code on the Web page — not a 
nice effect. To prevent this behavior, 
you must surround your script with 
HTML comment tags (see Listing 1). 

By surroundingthe script with com- 
ment tags in NewCust.htm, you pre- 
vent the code from printing on the page 
when used in a non-Microsoft browser. 
But a problem remains: the code be- 
hind the Save Record button never ex- 
ecutes, so the client never submits the 
page to the server. If you plan on using 
a page such as this in a mixed-browser 
environment, you probably want to 
code your client-side validation scripts 
a little differently. One alternative cod- 
ing technique I learned from program- 
mer/writer friend Richard Campbell is 
to use a Submit button instead of a 



plain button control and use an event 
function attached to the Submit button. 
The HTML and VBScript behind this 
version of the form (NewCust2.htm) 
work because VBScript — unlike VBA — 
lets you create event functions attached 
to HTML objects (see Listing 2). When 
you use an event function instead of an 
event subroutine, you can set the re- 
turn value of the event to False to can- 
cel the event. This technique has the 
same effect as setting the Cancel pa- 
rameter of VBA event procedures, such 
as VB's QueryUnload event procedure, 
to True. 

When you run NewCust2.htm using IE3 
or IE4, the client-side validation code runs 
the client-side validation rule checks be- 
fore the browser submits the form data to 
the server. However, a Netscape Naviga- 
tor or other non-VBScript-enabled browser 
submits the form to the page without a 
client-side check; server-side validation 
code has to handle any entries outside the 
range of acceptable values. Therefore, the 
form works in either case, but it works 
better when you use Internet Explorer. 

WHAT ELSE CAN YOU DO WITH 
VBSCRIPT? 

Client-side VBScript scripts can do more 
than validate form controls. You can 
use VBScript to script ActiveX controls 
and Java applets. For example, I recently 
created an application for a client that 
populates the Microsoft TreeView con- 



trol using client-side VBScript code. The 
data for the control comes from server- 
side VBScript ASP code. 

If you're using VBScript with IE3, you 
might be somewhat disappointed to find 
you can't change the content of a Web 
page using VBScript and HTML once the 
browser has rendered the page. If you're 
using IE4, however, you can use VBScript 
code to programmatically manipulate al- 
most every element of a Web page — after 
the page has been rendered in the 
browser — using Dynamic HTML. To give 
you a taste of what is possible, here's 
code that changes the color of the head- 
ing text to red when the mouse hovers 
over it. Plain old HTML can't do this: 

<H1 ID-"Headi ng">I sn ' t Dynamic 
HTML Cool?</Hl> 

<H3>This example demonstrates the use 
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Use VBScript on the server to 
create Active Server Pages. 
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User Tip 



VB3, VB4/16, VB4/32, VB5 

DELETING AN ARRAY ELEMENT 

Conventional wisdom suggests that to delete an element of an array, you 
must move all the subsequent elements up to close the "gap" left by the 
deleted item. But if the sequence of the elements is not significant (as in 
an unsorted array), you can use this algorithm to quickly delete an item: 



' Element to delete 
i Delete - 5 

' Number of elements before deletion 

nElements - UBound(Array) 

' Replace iDelete with last item in array 

Array(iDelete) = Array(nElements) 

' Use ReDim Preserve to shrink array by one 

ReDim Preserve Array( LBound(Array) To nElements 



1) 



—Basil Hubbard 



VB5 



TAKE ADVANTAGE OF THE PROJECT 
WINDOW'S RELATED DOCUMENTS AREA 

If you use a resource file in your application, you can see the RES file 
appear in the project window under "Related Documents. " This is the only 
type of file that VB automatically adds to this node of the project tree. 

You can add any type of file you like to this area manually, though. 
From the Project menu, select Add File (or right-click on the project 
window and select Add File from the context menu). In the dialog box, 
select All Files for the file type, and check the Add As Related Document 
option. 

Adding additional related files here can help you organize your project 
and give you quick access to anything that might be useful, including 
design documents, databases, resource scripts, help project files, and so 
forth. Once a file has been added, you can double-click on it in the 
project window to open it with the appropriate application. 

— Joe Garrick 



SEND YOUR TIP 

If it's cool and we publish it, we'll pay you $25. If it includes code, please limit i 
length to 20 lines if possible. Be sure to include a clear explanation of wh 
technique does and why it is useful. Send it to 74774.305@compuserve.com, 
vbpjedit@fawcette.com, or Fawcette Technical Publications, 209 Hamilton Ave., 
Palo Alto, CA, USA, 94301-2500. You can also fax it to 650-853-0230. Please include 
your mailing address. 




of Dynamic HTML and VBScript. To test 
it out. Move your mouse over the 
"Isn't Dynamic HTML Cool?" heading. If 
you're running IE4, the heading will 
change colors when the 
mouse hovers over the text.</H3> 

<SCRIPT Language-"VBScript"> 
<!- 

Sub Heading_OnMouseOver 

Heading. Style. Color - "Red" 
End Sub 

Sub Headi ng_0nMouse0ut 

Heading. Style. Color - "Black" 
End Sub 
-> 

</SCRIPT> 

You can also use VBScript on the 
server to create Active Server Pages on 
Microsoft Internet Information Server 
and compatible Web servers. Execut- 
ing VBScript code on the server has at 
least two advantages over client-side 
coding. First, the pages work with any 
browser because all the processing of 
VBScript code occurs on the server. 
Second, ASP pages executing on the 
server can instantiate and use server- 
side objects, including ActiveX Data 
Objects (ADO) that read from and write 
to server database records. Server-side 
VBScript programming is grist for an- 
other article. 

So if you're a VBA programmer, you 
can create dynamic Web pages that you 
script with a close cousin of the VBA 
language, VBScript, using your existing 
skills. Using VBScript on both the Web 
client and the Web server produces dy- 
namic Web pages that make the static 
Web pages of yesterday look pale in 
comparison. II 



Code Online 



You can find all the code published in this 
issue of Getting Started with Visual Basic on 
The Development Exchange (DevX) at http:// 
www.windx.com. For details, please see "Get 
Extra Code in DevX's Premier Club" in the 
Table of Contents. 

Use VBScript for Web Tasking 
Locator* Codes 

Listings for the entire issue, including links to 
Web sites demonstrating theclient-side script- 
ing discussed in the article (free Registered 
Level): GS298 

Listings for this article only, plus the links 
described above (subscriber Premier Level)'. 

PLGS298 
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Give Users Access, Feedback 



by Chri< 



Use VB's ToolBar and 
StatusBar controls to 
allow easy access to the 
features of your 
application and to give 
users constant feedback. 



Several VB controls allow you to 
give your application the look and 
feel of the most recent profes- 
sional Windows applications. The 
ToolBar and StatusBar controls are im- 
portant ones. Toolbars give the user quick 
access to your app's features without 
forcing them to navigate menus, and a 
status bar gives the user constant feed- 

Chris Barlow is president of SunOpTech, a 
developer of document-management, deci- 
sion-support, and supply <hain applications, 
includingthe ObjectBank, ObjectOrder, and 
ObjectJob Systems. He holds two U.S. pat- 
ents related to software for decentralized 
distributed asynchronous object-oriented 
and scheduling systems. Chris, who holds 
degrees from Harvard Business School and 
Dartmouth College, is a frequent speaker at 
VBITS, Tech'Ed, andDevDays. Reach Chris 
at Chris@VBExpert.com or through http:// 
www. VBExpert.com. 



back about your app and the environ- 
ment. In this article I'll discuss how to use 
both controls, starting with ToolBar. 

You probably haven't seen a recent 
professional Windows application with- 
out a toolbar. If you want your VB applica- 
tion to look and feel like these profes- 
sional applications, you need to use this 
control. Fortunately, the ToolBar control 
included with VB is easy to use. 

First let's get to a common starting 
point. You can follow the code examples 
in this article to add a toolbar to any of 
your existing applications. I'll use as an 
example a text editor whose source code 
you can download from The Development 
Exchange (see the Code Online box at the 
end of this article for details). Or you can 
simply draw a Rich- 
TextBox and Common- 
Dialog control on an 
empty form and create 
a standard File menu 
with New, Save, and 
Exit menu items. 

Creating menus can 
be time-consuming be- 
cause you have to type 
all the menu properties 
for each form. How 
about a shortcut? If you 
have another form with 
a standard Windows 
menu, open it with 
Notepad and look at the 
source code for the 
form. You'll see a set of 
code starting with "Be- 
gin VB.Menu..." (see 
Listing 1). Copy this 
code to the clipboard, 



then open your new FRM file with Notepad 
and paste in this code. I've saved this 
code in a text file so I can paste it into my 
FRM file when I need a standard menu. It 
saves a lot of typing! Be sure to save the 
file as ASCII text so VB can load it. 

MORE COMPLICATED, BUT WORTH IT 

The ToolBar control is more complicated 
than the RichTextBox and CommonDialog 
controls. VB is designed to use OLE Auto- 
mation throughout, so you should be- 
come familiar with using these VB objects 
with their own properties, methods, and 
collections. One of the reasons the 
ToolBar control is more complicated than 
the other controls is that the toolbar but- 
tons are a collection of Button objects 




Button Object 



ImageList 
Object 



Figure 1 . Objects and Collections. You 11 need to know how 
these objects relate to each other to develop a working toolbar. 
The toolbar buttons are a collection of Button objects with their 
own properties and methods. And to make it a bit more 
complex, the images on the button faces are contained with the 
Listlmages collection of an ImageList control. 
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with their own properties and methods. 
And to make it more complex, the images 
on the button faces are contained with 
the Listlmages collection of an ImageList 
control (see Figure 1). 

To add a toolbar to your application, 
you need to perform several steps. I al- 
ways recommend you start writing a pro- 
cedure by listing the steps in pseudocode: 

1. Add an ImageList control to your 
form. 

2. Insert pictures for the button 
faces to the Listlmages collection of 
the ImageList control . 

3. Add a ToolBar control to your form. 

4. Set the ToolBar ImageList property 
to bind the toolbar to your ImageList 
control . 

5. Add Button objects to the toolbar. 

6. Set each button's properties to 
bind the button image to the proper 
image. 

7. Write code to handle toolbar button 
cl i cks . 

I'll go through each of these steps in 
detail. Start by drawing an ImageList con- 
trol on your form, right-click on the con- 
trol to display the Properties dialog, go to 
the Images tab, and click on the Insert 
Picture button. If you look in the bitmaps/ 
tlbr_w95 folder, you'll find a good selec- 
tion of bitmaps for the toolbar buttons. 
Insert pictures for New, Open, Save, Print, 
Find, Left, Center, and Right. Now go to 
the Colors tab and change the BackColor 
property to the system color "Menu Bar" 
and the MaskColor property to the sys- 
tem color "Button Face." If you don't ad- 
just the colors, the images are dithered 
when they appear on the toolbar buttons 
and difficult to see on the button faces. At 
run time, you can use the Add method of 
the Listlmages collection to add other 
images to the ImageList control. 

Now that you have a collection of im- 
ages for your toolbar, add the ToolBar 
control to your form and right-click on the 
control to display its property dialog. On 
the General tab, change the ImageList 



[ « ToolBar 






File Edit 
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You'll need to add one more invisible button to your toolbar with a st; 
Basic that prevents the toolbar from wrapping properly if the last button 
See Figure 2 for the completed toolbar. Now that your toolbar design is 
Toolbar code 

Because you have a combobox on your toolbar you'll need to add code 
sure it is located on the placeholder button of the toolbar. In the form lo; 

Private Sub Form_LoadO 
'Initialize the combo box 



Figure 2. Your New Toolbar. The toolbar you've created Features a combo-box control 
for font selection, in addition to buttons for New, Open, Save, Print, Find, and text 
alignment. 



property to bind the toolbar to your 
ImageList control. Be sure you add all the 
images you'll need to your ImageList con- 
trol before you bind it to the toolbar 
because you cannot make changes to a 
bound ImageList control. 

Each toolbar has a collection of Button 
objects. You can add Button objects to 
the toolbar at run time with the Add 
method of the Buttons collection. At de- 
sign time, on the Buttons tab of the ToolBar 
control's property dialog, click on Insert 
Button to add a button. Button objects 
can contain either an image or a caption, 
or both. Because each Button object has 
a ToolTipText property, however, you 
probably won't need to design a toolbar 
with both images and captions. Set the 
Key property of each Button object so 
you can identify which button the user 
has clicked on. 

Insert five buttons on your toolbar; set 
their Key and ToolTipText properties to 
"New," "Open," "Save," "Print," and "Find"; 
and bind them to images one through five 
of the ImageList control. Click on the Ap- 
ply button to see your new toolbar. 

You can design a better toolbar by 
using the Style property of the Button 



object. The default style is a normal but- 
ton, like the buttons now on your toolbar. 
To separate the Print button slightly from 
the New, Open, and Save buttons, insert 
another button with a style property of 
"separator." 

On the Buttons tab, move back to the 
Save button by changing the index to 
three, and click on the Insert Button but- 
ton. Then change the Style property to 
"separator." Insert one separator button 
between the Print and Find buttons and 
one after the Find button. 

Buttons can also be part of a button 
group where you can press only one but- 
ton at a time. For example, if the text in our 
RichTextBox control can be only left- 
aligned, centered, or right-aligned, then 
only one of the Left, Center, or Right 
buttons should be pressed. Abutton group 
is defined as a group of buttons with a 
"button group" style surrounded by but- 
tons with a "separator" style. 

Add three more buttons with Key and 
ToolTipText properties of "Left," "Cen- 
ter," and "Right" to your toolbar, and set 
their style to "button group." 

Buttons can also have a style property 
of "placeholder" that lets you add other 



Constant Value 


Description 


sbrText 

sbrCaps 1 
sbrNum 2 
sbrlns 3 
sbrScrl 4 
sbrTime 5 
sbrDate 6 
sbrKana 7 


(Default). Text ond/or a bitmap. Set text with the Text property. 

Caps Lock key. Displays the letters CAPS in bold when Caps Lock is enabled, and dimmed when disabled. 
Number Lock. Displays the letters NUM in bold when the Number Lock key is enabled, and dimmed when disabled. 
Insert key. Displays the letters INS in bold when the Insert key is enabled, and dimmed when disabled. 
Scroll Lock key. Displays the letters SCRL in bold when Scroll Lock is enabled, and dimmed when disabled. 
Time. Displays the current time in the system format. 
Date. Displays the current date in the system format. 
Kana. Displays Kana when Scroll Lock is enabled. 



Table 1 . Panel Object Styles. This table is expanded from the VB help file to include the new Kana style that was added after the help 
file was created. 
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Begin VB.Menu mnuFile 
Capti on - "&Fi 1 e" 
Begin VB.Menu mnuNew 

Caption - "&New" 
End 

Begin VB.Menu mnuOpen 

Caption - "&0pen" 
End 

Begin VB.Menu mnuSave 

Caption - "&Save" 
End 

Begin VB.Menu Sepl 

Caption - "-" 
End 

Begin VB.Menu mnuFont 

Caption - "&Font" 
End 

Begin VB.Menu mnuPrint 

Capti on - "&Pri nt" 
End 

Begin VB.Menu Sep2 

Caption - "-" 
End 

Begin VB.Menu mnuExit 

Caption = "E&xit" 
End 
End 

Begin VB.Menu mnuEdit 
Caption - "&Edit" 
Begin VB.Menu mnuFind 

Caption - "&Find" 
End 

Begin VB.Menu mnuNext 

Caption - "Find &Next" 
End 
End 



Listing 1 . How About a Shortcut? Creating 
menus can be time<onsuming because you 
have to type all the menu properties for each 
form. If you have another form with a standard 
Windows menu, open it with Notepad and 
copy the source code to the clipboard. Then 
open your new FRM file with Notepad and 
paste in this code. Be sure to save the file as 
ASCII text so VB can load it. 

controls to the toolbar. Add a combo box 
that allows the user to set the size of the 
font. Add two more buttons to your 
toolbar— one with a "separator" style and 
the other with a "placeholder" style. Set the 
Key property ofthelastbuttonto"combol", 
and the width property to 1000. Then draw 
a ComboBox control on the toolbar. 

You need to add one more invisible 
button to your toolbar with a style of 
"default." A bug in VB prevents the toolbar 
from wrapping properly if the last button 
on the toolbar has a placeholder style. 
Now that your toolbar design is complete 
(see Figure 2), it's time to add the code. 

ADD CODE BEHIND THE BAR 

Because you have a combo box on your 
toolbar, you need to add code to initialize 
the combo box and to make sure it is located 
on the placeholder button of the toolbar. In 
the Form_Load event, add this code: 

Private Sub Form_Load() 



'Initialize the combo box 
Show 

With Combol 
.Width - _ 

Tool barl. Buttons ("combol") .Width 
. Left - _ 

Toolbarl.Buttonst "combol" ) . Lef t 
.Top -■ Toolbarl.Buttons("combol").Top 
.Addltem "10" 
.Addltem "12" 
.Addltem "14" 
.Addltem "16" 
.Listlndex - 
. ZOrder 
End With 
End Sub 

Copy this "tracking" code to the 
Form_Resize event so the combo box al- 
ways stays in the proper place: 

Private Sub Form_Resi ze( ) 
With Combol 
.Width - _ 

Tool barl. Buttons ("combol") .Width 
.Left - _ 

Tool barl. Buttons ( "combol" ) . Left 
.Top - Toolbarl.Buttons("combol").Top 
End With 
End Sub 

Handling the toolbar clicks will be fairly 
easy because you already have menu 
items for most of these functions. The 
toolbar ButtonClick event passes the but- 
ton object that the user clicked on so you 
can write a Select statement based on the 
Key property of the button: 

Private Sub Toolbarl_ButtonClick(ByVal 

Button As Button) 
Select Case Button. Key 
Case "New": mnuNew_Click 
Case "Open": mnuOpen_Cl i ck 
Case "Save": mnuSave_Cl i ck 
Case "Print": mnuPri nt_Cl i ck 
Case "Find": mnuFi nd_Cl i ck 
Case "Left": 

Ri chTextBoxl . Sel Al ignment - rtfLeft 
Case "Center": _ 

Ri chTextBoxl. Sel Alignment - rtf Center 
Case "Right": 

RichTextBoxl.SelAlignment - rtfRight 
End Select 
End Sub 

The only new code — the Case "Left," 
Case "Center," and Case "Right" state- 
ments — sets the alignment property of 
the RichTextBox control based on which 
button the user clicked on. This changes 
the alignment of the selected paragraphs 
or, if no text is selected, the current para- 
graph. You can set these alignment but- 
tons to display the actual alignment of the 
text as you move through the text by 
setting each button's Value property 



within the SelChange event of the 
RichTextBox control. Notice how the 
"Case Else" statement "unpresses" all 
buttons in the group if the alignment is 
other than left, centered, or right: 

Private Sub Ri chTextBoxl_Sel Changet ) 
Select Case RichTextBoxl.SelAlignment 
Case rtfLeft 

Toolbarl.ButtonsC'Left") .Value - _ 
tbrPressed 
Case rtfCenter 

Tool barl .ButtonsC'Center" ) .Val ue - _ 
tbrPressed 
Case rtfRight 

Toolbarl.ButtonsC'Right") .Value - _ 
tbrPressed 
Case Else 

Toolbarl.ButtonsC'Left"). Value - _ 

tbrUnpressed 
Toolbarl. ButtonsC'Center"). Value - _ 

tbrUnpressed 
Toolbarl.ButtonsC'Right") .Value - _ 
tbrUnpressed 
End Select 

Combol. Text - Ri chTextBoxl . Sel FontSi ze 
End Sub 

The last line of code in the Rich- 
TextBoxl_SelChange() procedure uses 
the SelFontSize property to display the 
font size as the cursor moves through the 
text. Now you add code to change the 
font size of the selected text when the 
user makes a selection from the combo 
box on your toolbar. This is easy — simply 
set the SelFontSize property of the Rich- 
TextBox control to the default value of 
the combo box, and return the focus to 
the RichTextBox control: 




Figure 3. Don 't Object to Collections. 

You need to know how these objects relate 
to each other to develop a working status 
bar. The status-bar buttons are actually a 
collection of Panel objects with their own 
properties and methods. 
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Private Sub Combol_Cl i ck( ) 

Ri chTextBoxl . Sel FontSi ze - Combol 

Ri chTextBoxl . Set Foe us 

End Sub 

Now you have a fully functional 
toolbar for your application (see Listing 
2). One of the cool things you get for free 
with the ToolBar control is the ability to 
allow the user to customize the toolbar 
by reordering and removing buttons. If 



you set the Customize property of the 
toolbar to True, the user can double- 
click on the toolbar at run time to bring 
up a customize dialog by which he or she 
can modify the toolbar you set up at 
design time. You can even use the 
SaveToolBar method to store the cur- 
rent toolbar settings in the Registry, and 
use the RestoreToolBar method to re- 
load it the next time the user runs your 
application. 



THE STATUSBAR CONTROL PROVIDES 
FEEDBACK 

The StatusBar control is important be- 
cause it gives the user constant feedback 
about your application and the environ- 
ment. I'll also use the text editor example 
in discussing this control. 

The application's status bar usually 
sits aligned at the bottom of the 
application's main window. In the past, it 
consisted of a single "panel" where you 



VB5 

Option Explicit 
Public sFind As String 

Private Sub Combol_Change( ) 
RichTextBoxl.SelFontSize - Combol 
Ri ChTextBoxl. Set Focus 
End Sub 

Private Sub Combol_Cl i ck( ) 
RichTextBoxl.SelFontSize - Combol 
Ri chTextBoxl . SetFocus 
End Sub 

Private Sub Form_Load() 
'Initialize the combo box 
Show 

With Combol 

.Width - Tool barl . ButtonsC "combol" ) .Wi dth 

.Left - Tool barl . ButtonsC'combol" ). Left 

.Top - Tool barl . ButtonsC'combol" ) .Top 

.Addltem "10" 

.Addltem "12" 

.Addltem "14" 

.Addltem "16" 

. Li stlndex - 

.ZOrder 

End With 

End Sub 

Private Sub Form_Resi ze( ) 
With Combol 

.Width - Toolbarl. ButtonsC'combol"). Width 
.Left - Toolbarl. ButtonsC'combol"). Left 
.Top - Toolbarl. ButtonsC'combol"). Top 
End With 
End Sub 

Private Sub mnuExi t_Cl i ck< ) 

Unload Me 

End 

End Sub 



Private Sub mnuFi nd_Cl i ck( ) 
sFind = InputBoxC'Find what?" 
Ri ChTextBoxl . Fi nd sFind 
End Sub 



s Fi nd ) 



Private Sub mnuFont^Cl i ck( ) 

CommonDialogl. Flags - cdlCFBoth + cdlCFEffects 

Common Di a 1 ogl . Show Font 

With RichTextBoxl 

.Sel FontName - CommonDi al ogl . FontName 

.SelFontSize - CommonDi al ogl . FontSize 

.Sel Bold - CommonDi al ogl . FontBol d 

.Selltalic - CommonDi al ogl . Fontltal i c 

. Sel Stri kethru - CommonDi al ogl . FontStri kethru 

. Sel Underl i ne - CommonDi al ogl . FontUnderl i ne 

End With 

End Sub 

Private Sub mnuNew^Cl i ck( ) 



Listing 2. Use the Complete Toolbar Code. Use this code to add a 
user to customize the toolbar by reordering and removing buttons. 



Ri chTextBoxl .Text - "" 
End Sub 

Private Sub mnuNext_Cl i ck( ) 

RichTextBoxl. SelStart - Ri chTextBoxl . Sel Start + 

RichTextBoxl. Sel Length + 1 
RichTextBoxl. Find sFind, . Len( Ri chTextBoxl ) 
End Sub 

Private Sub mnuOpen_Cl i ck( ) 
CommonDi a 1 ogl .ShowOpen 

Ri chTextBoxl . LoadFi 1 e (CommonDi a 1 ogl . f i 1 ename) 
End Sub 

Private Sub mnuPri nt_Cl i ck( ) 
CommonDi alogl. Flags - cdl PDReturnDC + 
cdl PDNoPageNums 

If Ri ChTextBoxl . Sel Length - Then 

CommonDi al ogl . FI ags - CommonDi al ogl . FI ags + 
cdl PDA1 1 Pages 

Else 

CommonDial ogl . FI ags - CommonDi al ogl . FI ags + _ 
cdl PDSel ection 
End If 

CommonDial ogl. ShowPr inter 
RichTextBoxl .Sel Pri nt CommonDi a 1 ogl . hDC 
End Sub 

Private Sub mnuSave_Cl i ck( ) 
CommonDial ogl . ShowSave 

Ri chTextBoxl .Save Fi 1 e (CommonDi al ogl .f i 1 ename) 
End Sub 

Private Sub Ri chTextBoxl_Sel Changet ) 
Select Case Ri chTextBoxl .Sel Al i gnment 
Case rtfLeft 

Tool barl . ButtonsC'Left" ). Val ue - tbrPressed 
Case rtfCenter 

Tool barl . Buttons ( "Center" ). Val ue - tbrPressed 
Case rtfRight 

Toolbarl. ButtonsC'Ri ght" ) . Value - tbrPressed 
Case Else 

Tool barl . Buttons ( "Left" ). Val ue - tbrUnpressed 
Tool barl . Buttonst "Center" ). Val ue - tbrUnpressed 
Tool barl . Buttonst "Ri ght" ). Val ue = tbrUnpressed 
End Select 

Combol. Text - RichTextBoxl.SelFontSize 
End Sub 

Private Sub Tool barl_ButtonCl i ck(ByVal Button As 

Button ) 
Select Case Button. Key 
Case "New": mnuNew„Click 
Case "Open": mnuOpen_Cl i ck 
Case "Save": mnuSave_Cl i ck 
Case "Print": mnuPri nt_Cl i ck 
Case "Find": mnuFi nd_Cl i ck 

Case "Left": Ri chTextBoxl . Sel Al i gnment - rtfLeft 
Case "Center": Ri chTextBoxl . Sel Al i gnment - 
rtfCenter 

Case "Right": Ri chTextBoxl . Sel Al i gnment - rtfRight 

End Select 
End Sub 

toolbar to your application. You also get the ability to allow the 
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StatusBar Control Properties 
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Index: 



nsert Panel 



Iext 


! 




Key: 


1 




Alignment: 


1 - Left 




Style: 


- Text 




Bevel: 


1 -Inset 


d 


AutoSize: 




ad 



Minimum Width: 
Actual Width: |S315.02 






Picture 


F7 Enabled 




Browse.. | 


17 Visible 







Figure 4. Control Your Panels. The Panels tab of the StatusBar 
Control Properties dialog lets you add or remove Panel objects to 
the Panels collection and set their properties at design time. 




Remove method of the Panels collection to remove these panels from— 
property. Don't forget to flip the Checked property!: 
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Figure 5. The Completed Application. Notice how the panels 
resize when the font size is changed but do not shrink to less than 
the specified minimum width. 

could display text, usually indicating the action the application 
was performing, such as "Saving the document" or "Processing 
record #123." In more recent applications, the style of the status 
bar has been changed to include several panels that display 
other information for the user, such as the position of the Caps 
Lock key. In Excel 7, one of the panels can even constantly 
display the sum of the currently selected range of cells. 

The StatusBar control included with VB can support both the 
simple single-panel style and the more complex multiple-panel 
style. When you set the Style property to sbrSimple, you can use 
the SimpleText property to display text in the single panel. This 
makes for an easy transition from your older applications. 
However, when the Style property is set to sbrNormal, you must 
control the information displayed on the status bar by manipu- 
lating its Panel objects. 

Yes, the StatusBar control is similar to the ToolBar control in 
its architecture. Just as the toolbar buttons on the ToolBar 
control are actually a collection of Button objects with their own 
properties and methods, the StatusBar control is made up of a 
collection of Panel objects with their own properties and meth- 



ods (see Figure 3). 

As you continue to work with VB, you should be getting 
comfortable with the syntax for dealing with these collections and 
objects. As you might know, you can add a button to the Buttons 
collection of a toolbar with the Add method, then refer to that 
button within the collection using its Key property or its index: 

Set btnX - Tool barl . Buttons .Add 

(, "open", , tbrDefault, "open") 
Set btnX - Tool barl . Buttons ( "open" ) 
Set btnX - Tool barl . ButtonsO) 

In the same fashion, you can add a new Panel object to the 
Panels collection of the StatusBar control at run time or change 
the text of the first Panel object with code like this: 

Set pnlX - StatusBarl. Panels. Add 

( , . ,sbrTime,LoadPicture("icons\misc\clock03.ico") 
StatusBarl. Panels(l). Text = "Loading file..." 

ADD THE STATUS BAR 

Add the StatusBar control to your form by dragging it from the 
toolbox to the bottom of your form. Press F4 to view the 
control's properties, and set the Align property to "2 - Align 
Bottom" so the StatusBar control will "stick" to the bottom of the 
form when the user resizes it. Then click in the Custom property 
row or right-click on the control to display the StatusBar control's 
property dialog. On the General tab, you can set the Style 
property and, if you plan to use the sbrSimple style, you can set 
the SimpleText property. 

Remember that each status bar has a collection of Panel 
objects. At design time, you can add a panel to the Panels 
collection using the Panels tab of the StatusBar control's prop- 
erty dialog. Simply click on the Insert Panel button to add a Panel 
object (see Figure 4). 

You can use this dialog to set the properties of the Panel 
object at design time. In addition to the Index property, each 
panel has a Key property you can use to refer to this particular 
panel within the Panels collection at run time. 

The power of this control is apparent when you look at the 
Style property. You can choose one of eight different styles for 
each panel on the status bar (see Table 1). When I first saw these 
styles, I was excited! I remember the code I used to have to write 
so I could display the time on a status bar for the user. I had to 
add a timer control to the form, get the current system time in 
the timer event, format the time, set the text property to this 
formatted time, and so on. Now you only have to set the style 
property of one of your panels to sbrTime and forget it. You can 
also easily display the status of the Caps Lock, Num Lock, and 
Scroll Lock keys just as Word does. Neat! 

If you're going to use a panel to display text, you can set the 
Text and Alignment properties to center text within the panel, 
for example. You can also set the panel's AutoSize property to 
sbrContents so the panel sizes itself to the content of the panel. 
Plus, you can set the AutoSize property to sbrSpring so all 
panels divide any extra space on the panel and resize them- 
selves accordingly. To prevent a panel from getting too small 
when the user resizes the form, you can set its MinWidth 
property. Panel objects can also contain an image that you set 
with the Picture property. 

For your text editor application, it makes sense to have at 
least three panels. You can use the first panel to display text 
indicating to the user what the application is doing, such as 
"Loading document," "Saving document," and "Printing docu- 
ment." To do this, add lines of code in the various applications' 
events to display certain text strings (see Listing 3). 

Whenever you display these kinds of text messages, it's good 
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practice to put tnem in tne ueciarations 
section of a form or module rather than 
code the strings directly into the lines of 
code. This makes it easier for you to find 
the text later if you want to update or 
change it. For this application, for ex- 
ample, you could add these constants in 
the Declarations section of the form: 



Const msgLoad ■ 

Const msgSave ■ 

Const msgPrint 

Const msgFind ■ 



"Loading document..." 
"Savi ng document ..." 
"Printing document..." 
"Finding text..." 



You can add code to the appropriate 



events to display tnese constants in me 
first panel of the status bar. For example, 
you can add two lines to the mnuSave 
event — one at the beginning to display 
the text contained in the constant 
msgSave, and one at the end of the event 
to clear the text: 

Private Sub mnuSave_Cl 1 ck( ) 
StatusBarl . Panel s( 1) .Text - msgSave 
Common Di al ogl . ShowSave 
Ri chTextBoxl . SaveFi 1 e 
(CommonDi al ogl .f i 1 ename) 
StatusBarl. Panels(l). Text - "" 
End Sub 



in tne seconu panel, you t_cui uispmy 
I the name of the font at the current cursor 
position. The RichTextBox control has a 
I property called SelFontName for the font 
| name of the selected font. Add this line of 
■ code to the SelChange event of your 
j RichTextBox control: 

| StatusBarl . Panel s(2) .Text - 
Ri chTextBoxl . Sel Font Name 

In the third panel, you can display the 
I current line number of the cursor. The 
RichTextBox control has a method called 
I GetLineFromChar that returns the line num- 



VB5 

Option Explicit 

Publ i c sFi nd As St ri ng 

Const msgLoad - "Loading document..." 

Const msgSave - "Saving document..." 

Const msgPrint - "Printing document..." 

Const msgFind - "Finding text..." 

Private Sub Combol_Change( ) 

Ri chTextBoxl .Sel FontSi ze - Combol 

Ri chTextBoxl . Set Foe us 

End Sub 

Private Sub Combol_Cl i ck( ) 

Ri chTextBoxl. Sel FontSi ze - Combol 

Ri chTextBoxl .Set Focus 

End Sub 

Private Sub Form_Load() 
'Initialize the combo box 
Show 

With Combol 

.Width - Toolbarl.ButtonsC'combol"). Width 

.Left - Toolbarl.ButtonsC'combol"). Left 

.Top - Toolbarl.ButtonsC'combol") .Top 

.Add Item "10" 

.Addltem "12" 

.Addltem "14" 

.Addltem "16" 

.Listlndex - 

.ZOrder 

End With 

End Sub 

Private Sub mStatTime_Cl ick( ) 

Dim pnl As Panel 

If Not mStatTi me. CHECKED Then 

Set pnl = StatusBarl. Panels. Add (. "date" 
sbrDate) 

pnl.AutoSize - sbrContents 

pnl .MinWidth - 720 

Set pnl - StatusBarl. Panels. Add 
With pnl 

.Key - "time" 

.Style - sbrTime 

.AutoSize - sbrContents 

.MinWidth - 720 
End With 
Else 

StatusBarl. Panel s . Remove ("date") 
StatusBarl .Panel s .Remove ("time") 
End If 

mStatTi me . CHECKED - Not mStatTime . CHECKED 
End Sub 

Private Sub Form_Resize( ) 



Listing 3. Give Yourself Some Status. Status bars give 
working in. VB's StatusBar control lets you add this feature 



Time style 



With Combol 

.Width - Tool barl . ButtonsC'combol" ) .Width 
.Left - Tool barl . Buttons ("combol" ). Left 
.Top - Tool barl . Buttonst "combol" ) .Top 
End With 
End Sub 

Private Sub mnuExi t_Cl i ck( ) 
Unload Me 
End 

End Sub 

Private Sub mnuFi nd_Cl ick( ) 
StatusBarl . Panel s( 1 ) .Text - msgFind 
sFind - InputBoxC'Find what?", , sFind) 
RichTextBoxl.Find sFind 
StatusBarl. Panels(l). Text - "" 
End Sub 

Private Sub mnuFont_Cl i ck( ) 

CommonDialogl. Flags - cdlCFBoth + cdlCFEffects 
CommonDi al ogl.ShowFont 
With Ri ChTextBoxl 

.SelFontName - CommonDi al ogl . FontName 
.SelFontSize - CommonDial ogl . FontSize 
.SelBold - CommonDialogl. FontBold 
.Selltalic - CommonDi al ogl . Fontltal ic 
. Sel Stri kethru - CommonDi al ogl . FontStri kethru 
. Sel Underl i ne - CommonDi al ogl . FontUnderl i ne 
End With 
End Sub 

Private Sub mnuNew_Cl i ck( ) 
Ri chTextBoxl .Text - "" 
End Sub 

Private Sub mnuNext_Cl i ck( ) 

RichTextBoxl.SelStart - Ri chTextBoxl . Sel Sta rt + 

RichTextBoxl. Sel Length + 1 
RichTextBoxl.Find sFind, , Lent Ri ChTextBoxl ) 
End Sub 

Private Sub mnuOpen_Cl i ck( ) 
StatusBarl. Panels(l) .Text - msgLoad 
CommonDi al ogl . ShowOpen 

Ri chTextBoxl . LoadFi 1 e ( CommonDi a 1 ogl . f i 1 ename) 
StatusBarl. Panels(l). Text - "" 
End Sub 

Private Sub mnuPri nt_Cl i ck( ) 
StatusBarl. Panels(l) .Text - msgPrint 
CommonDialogl. Flags - cdl PDReturnDC + _ 

cdl PDNoPageNums 
If RichTextBoxl. SelLength - Then 

CommonDi al ogl . Fl ags = CommonDi al ogl . Fl ags + 
cdl PDA! 1 Pages 

Else 

CONTINUED ON PAGE 71. 

users constant feedback about the application and environment they're 
to your own apps. Use this code to add status bars to the text editor. 
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CONTINUED FROM PAGE 70. 



CommonDialogl. Flags - CommonDi al ogl . Fl ags + _ 
cdlPDSelection 
End If 

CommonDi alogl.ShowPrinter 

Ri chTextBoxl .Sel Print CommonDi al ogl . hDC 

StatusBarl.PanelsCD.Text = "" 

End Sub 

Private Sub mnuSave_Cl i ck( ) 
StatusBarl . Panel s( 1 ) .Text - msgSave 
CommonDi a 1 ogl . ShowSave 

Ri chTextBoxl .Save Fi 1 e (CommonDi a 1 ogl .f i lename) 
StatusBarl.PanelsCD.Text - "" 
End Sub 

Private Sub Ri chTextBoxl_Sel Cnange( ) 
Select Case Ri chTextBoxl . Sel Al i gnment 
Case rtfLeft 

Tool barl .ButtonsC'Left" ) . Val ue - tbrPressed 
Case rtfCenter 

Tool barl . ButtonsC'Center") . Val ue - tbrPressed 
Case rtfRight 

Tool barl . Buttons( "Ri ght") .Val ue - tbrPressed 



Using Controls 



Case Else 

Toolbarl. ButtonsC'Left"). Value - tbrUnpressed 
Tool barl .ButtonsC'Center") .Val ue - tbrUnpressed 
Tool barl .ButtonsC'Right") .Val ue - tbrUnpressed 
End Select 

Combol.Text - Ri chTextBoxl . Sel FontSi ze 

StatusBarl . Panel s(2) .Text - Ri chTextBoxl . Sel FontName 

StatusBarl . Panel s(3) .Text - "Line " & _ 

RichTextBoxl.GetLineFromChar _ 

(RichTextBoxl.SelStart) + 1 
End Sub 

Private Sub Tool barl_ButtonCl i cktByVal Button As _ 

Button) 
Select Case Button. Key 
Case "New": mnuNew_Click 
Case "Open": mnuOpen_Cl i ck 
Case "Save": mnuSave_Cl i ck 
Case "Print": mnuPri nt_Cl i ck 
Case "Find": mnuFi nd_Cl i ck 

Case "Left": Ri chTextBoxl . Sel Al 1 gnment - rtfLeft 
Case "Center": Ri chTextBoxl . Sel Al i gnment - rtfCenter 
Case "Right": Ri chTextBoxl . Sel Al i gnment - rtfRight 
End Select 
End Sub 



ber given a character position. The SelStart 
property of the RichTextBox control al- 
ways contains the cursor's character posi- 
tion. This code in the SelChange event of 
your RichTextBox control updates the third 
panel with the proper line number: 



StatusBarl. PanelsO) .Text - "Line 
RichTextBoxl.GetLineFromChar 
(RichTextBoxl.SelStart) + 1 



& 



MAKE PANELS AN OPTION 

Your users might want to display the date 
and time in panels on the status bar. But 
they might want to use the default time 
display on the Windows 95 tray. You can 
use code at run time to add or remove 
date and time panels from the status bar. 

Add a top-level menu item called View 
to your form, then add a menu item on the 
View menu with a caption of StatusBar 
Time and a name of mStatTime. You can 
add code in the mStatTime_click event to 
check and uncheck this menu item as you 
add and remove the date and time panels. 
First, if this menu item is not checked, use 
the Add method of the Panels collection 
to add a Panel object with a key of "date" 
and a style of "sbrDate" by passing these 
parameters to the Add method: 

Private Sub mStatTi me_Cl 1 ck( ) 

Dim pnl As Panel 

If Not mStatTime. CHECKED Then 

Set pnl - StatusBarl. Panels. Add (. 
"date", , sbrDate) 

pnl.AutoSize - sbrContents 

pnl .MinWidth - 720 

After the Add method returns the new 
Panel object, you can use the method to set 
the object's AutoSize and MinWidth prop- 
erties. You can also use the Add method 



Y 



ou can add Button objects 
to the toolbar at run time 
with the Add method of the 
Buttons collection. 



without any parameters and set each prop- 
erty individually for the Time panel: 

Set pnl - StatusBarl . Panel s .Add 
With pnl 

.Key - "time" 

.Style - sbrTime ' Time style 
.AutoSize - sbrContents 
' Content 
.MinWidth - 720 
End With 

This second bit of code, in which you 
use the Add method without any param- 
eters and then set the properties, is a bit 
easier to follow. Next, if this menu item is 
already checked, you can use the Remove 
method of the Panels collection to re- 
move these panels from the status bar by 
referencing their Key property. Don't for- 
get to flip the Checked property: 

Else 

StatusBarl . Panel s . Remove ( "date") 
StatusBarl. Pa nels. Remove ( "time") 
End If 

mStatTime. CHECKED - Not 
mStatTime. CHECKED 



End Sub 

Now you have a fully functional status 
bar for your application (see Figure 5). 
Combine it with the ToolBar control and 
the RichTextBox control, and you've built 
a good-looking application! H 



Code Online 



You can find all the code published in this 
issue of Getting Started with Visual Basic on 
The Development Exchange (DevX) at http:/ / 
www.windx.com. For details, please see "Get 
Extra Code in DevX's Premier Club" in Letters 
to the Editor. 

Controls Give Users Access, 
Feedback 

Locators- Codes 

Listings for theentire issue, plus sample projects 
for the toolbar and status bar (free Registered 
Level): GS298 

Listings for this article only, plus the sample 
projects described above (subscriber Premier 
Level): CBGS298 
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Visual Basic OOP From the Ground Up 



BOSTON: AUG 3 & 4 

$ 



SEATTLE: AUG 17 a 18 

Register by 7/6, SAVE $100 



Attend the Conference that Delivers 
the Latest OOP for Visual Basic 



Learn how to create industrial strength object- 
oriented Visual Basic Applications by attending VB Jump 
Start, the two-day seminar on modern object-oriented 
programming in Visual Basic 5.0 brought to you by the editors 
of Visual Basic Programmer's Journal, and VBITS, the premier 
conference for VB programmers. 

VB Jump Start is designed to give you a solid 
foundation in VB programming concepts. This is an 
intermediate-level seminar aimed at professionals who 
understand general programming but need to learn the best 
techniques and approaches. 

Whether you've been programming in VB, but haven't yet made 
the jump to using classes and the latest data access techniques, 
such as ADO, or you are a proficient COBOL or C programmer 
who wants to expand an introductory knowledge of Visual Basic 
to building complex applications, VB Jump Start 
is designed to immediately make you more productive. 



VB Jump Start 1598 
Conference Schedule: 



Boston 
August 3 & 4 

Hynes Center 



Seattle 
August 17 a 18 

Meydenbauer 
Center 



Register now: $695 per show 



resented by the editors of u , 

Basic Programmer's Journal i 
d VBITS — 

Fawcette Technical Publications 
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Here are the 
topics you'll learn 

• Modern User Interface Design with VB 5.0 

• Tips and Tricks for Writing VB Code 

• N-Tier Client/Server Development 
Techniques 

• Principles of Object-Oriented Design 

• VB 5.0's Object-Oriented Features 

• Building Server-Based Business 
Components 

• Data Access Methods, from DAO to RDO, 
ADO and OLE DB 

• Enabling Your Application for the Internet 
and Intranet 



Register Today! 

1 -800-848-5523 




See the complete schedule 
and register at 

www.vbits98.com 



Microsoft and Visual Basic are registered trademarks of Microsoft Corporation. 
VBITS and VB Jump Start are trademarks of Fawcette Technical Publications. 
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Scroll that Picture Box 



by Karl E. Peterson and Phil Weber 



QNEST PICTURE BOX INSIDE ANOTHER 
How can I make a picture box scrollable, so that if I load 
a graphic that's larger than the control, the user can view 
the entire image? 

A One way to simulate a scrollable picture box is to "nest" 
one picture box inside another. Set the inner control's 
AutoSize property to True so it expands automatically, if 
necessary, to display the entire image. The outer picture box 
serves as a "viewport" through which the user can view a 
portion of the image. An explanation and example of this tech- 
nique is included in article Q140878 in the Microsoft Knowledge 
Base (http://support.microsoft.com/support/) and in the online 
help for VB versions 1 through 4. 

VB5 lets you create your own custom controls, and this is an 
ideal application for one. Instead of adding four controls — two 
picture boxes and two scrollbars — and their associated code to 
your project, you can simply drop a ScrollPic control on a form 
and use it as you would any other control (see Figure 1). 

Space limitations prevent us from printing ScrollPic's code 
here (you can download it from the free, Registered Level of The 
Development Exchange; see the Code Online box at the end of 
the column for details), but I'd like to point out a couple 
interesting details in the code. 

"Well-behaved" software should respect the user's prefer- 
ences. Windows lets the user adjust the size of scrollbars on his 
or her system, so ScrollPic calls the GetSystemMetrics API 
function to obtain the user's scrollbar settings and adjusts the 
sizes of its scrollbars accordingly. You'll find this code in 
ScrollPic's UserControl_Resize event. 

Also, you might have noticed that most programs that employ 
scrollbars have a small gray square in the lower right-hand corner 
(I'm surprised Microsoft hasn't devised some way to use this 
space for advertising). That square doesn't appear automatically: 
Before I added a borderless frame control to occupy that space, 
you could see a portion of the underlying image peeking through. 
Creating custom controls in VB5 is not so much difficult as it 

Karl E. Peterson is an independent programming consultant who 
specializes in ActiveX controls by night and spends his days as a GIS 
analyst with a regional transportation planning agency. Karl coau- 
thored Visual Basic 4 How-To from Waite Group Press. Online, he's 
a Microsoft MVP and a section leader in several VBPJ online forums. 
Find more of Karl's VB samples at http://www.mvps.org/vb. 

Phil Weber is an independent consultant specializing in Visual 
Basic and Web site development. He is a Microsoft Certified 
Solution Developer and Product Specialist. Find more of Phil's VB 
tips on his Web site at http://www.teleport.com/~pweber. 



is tedious. You must address details such as moving and resizing 
constituent controls, and loading and saving the control's prop- 
erties. But if you're careful to dot your i's and cross your t's, you 
can create controls in VB that are just as good as those written 
in — how shall I say this — less approachable programming lan- 
guages. — P. W. 

QAPI TRANSLATES COLOR PREFERENCE 
I've been experimenting with some graphics methods in 
an attempt to liven up my forms. So far, I've used mostly 
those offered by native VB, but I'd like to start playing with the 
API because it seems to offer far greater and more powerful 
choices. I've figured out how the RGB function combines red, 
green, and blue values into a single color, but I'm stumped by the 
so-called "system colors" and just what they relate to. From the 
few tests I've run, it seems the API doesn't like these either. 
What's the secret? 




Figure 1 . His Article Finished at Last, the Author Enjoys a 
Cold One. It's relatively easy to create your own custom controls 
with VB5. This ScrollPic control consists of a picture box, two 
scrollbars, and a borderless frame in the lower right-hand comer. 
You can download the source code for this control from the free, 
Registered Level of The Development Exchange (see the Code 
Online box at the end of this column for details). 
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Private Declare Function GetSysColor Lib "user32" _ 
(ByVal nlndex As Long) As Long 

Public Function CheckSysCol or( ByVal Color As Long) _ 
As Long 

Const HighBit - &H80000000 

' If high bit set, strip, and get system color. 

If Color And HighBit Then 

CheckSysColor - GetSysCol or(Col or And Not HighBit) 
Else 

CheckSysColor - Color 
End If 
End Function 



Listing 1 .MakeSure You Don't Pass a VBSystem "Color" to the 
API. This handy routine checks any color reference to determine if 
it'sa VBsystem color constant. If the high bitisset, stripping it oft results 
in the more standard API constant for that system color. Pass this value 
to GetSysColor for the user's preference as stored in the registry. 

A Windows defines 20-odd system colors for common user- 
interface (UI) elements, such as button faces, 3-D shad- 
ows and highlights, window backgrounds, scrollbars, 
and active and inactive captions. Actually, the user defines the 
colors and Windows simply stores these preferences in the 
registry. Developers know a system "color" only by name and 
number. They use these values by default in the various color 
properties that VB controls and forms offer. Sort of. 

The problem is that Windows defines the system colors as 
the range of values between zero and 24, or so. If you use one of 
those values directly in a function that expects an RGB value, 
you get either black or an extremely dark shade of red, when you 
really want the preference the user has set in the Control Panel. 
Windows provides a simple API to do the translation for you. To 
use it, store the Declare for GetSysColor in the Declarations 
section of whatever form or module calls it: 

Private Declare Function GetSysColor 

Lib "user32" (ByVal nlndex As Long) As Long 

To determine which system color relates to what UI element, 
open theWin32Api.txt file that ships with VB— in the \VB\WinApi 
folder — and search for "COLOR_". There you'll find a list of all 
the predefined constants. Let's say you want to determine the 
RGB value for the color of an active caption bar. You could do 
that like this: 

Dim RgbCaption As Long 

Const C0L0R_ACTIVECAPTI0N - 2 

RgbCaption - GetSysCol or(COLOR_ACTIVECAPTION) 

Well, okay, you say, but the numbers I see in the system color 
picker drop-downs don't look anything like zero to 24! Right you 
are. An RGB color reference uses only three of the four bytes in 
a Long variable, leaving the high byte free to carry additional 
information. VB uses the highest bit of the high byte as a flag to 
indicate that the following number should be considered a 
system color rather than an RGB reference. 

By And'ing a color value with &H80000000, a logical bitwise 
operation, you can determine whether the high bit is set. I've 
written a handy little routine thatendsupin nearly every proj ect 
I write when API graphics are involved (see Listing 1). 
CheckSysColor takes all the guesswork out of using graphics 
calls, by calling GetSysColor automatically if the high bit is set. 

When would you not know if you were dealing with a system 



VB4/16, VB4/32, VB5, VBA 

Public Sub ImportText(db As Database. ByVal _ 
sFileName As String, ByVal sTableName As String) 

Dim I As Integer 

Dim iBackslash As Integer 

Dim iStart As Integer 

Dim sPath As String 

Dim SQL As String 

Dim td As TableDef 

' Find last backslash in sFileName 

iStart - 1 

Do 

I - InStrOStart, sFileName, "\") 
If I Then 

iBackslash - I 

iStart - I + 1 
End If 
Loop While I 

' If found, extract path and file name from sFileName 

If iBackslash Then 

sPath - Left$(sFileName, iBackslash) 
sFileName - Mi d$ ( s Fi 1 eName , iBackslash + 1) 

Else 

' If sFileName does not contain a path, assume 
'it's in current directory 
sPath - CurDir$ 
End If 

' Create new TableDef and attach sFileName to 
' database 

Set td - db.CreateTableDef 
With td 

' Use Timer to generate unique name for temp table 
.Name - CStr(CLng(Timer) ) 
.Connect - "Text; Database-" & sPath 
. SourceTabl eName - sFileName 
End With 

db . Tabl eDefs .Append td 

' Copy records from sFileName into sTableName 
SQL - "SELECT * INTO [" & sTableName & "] FROM " 

td.Name 
db. Execute SQL 

' Detach text file from database 
db.TableDefs. Delete td.Name 



End Sub 



Listing 2. Import a Delimited Text File into a Database the 
"Right" Way. Use this code to append the text file to the database 's 
TableDef s collection. But by using an undocumented SQL trick, you 
can attach a text file to your database on the fly, making about half 
this code unnecessary. You can embed directly in a SQL query the 
connection information Jet needs to read the file. 

color or a standard RGB color reference? More often than you 
might think! Most times, when you reference the BackColor or 
ForeColor property of a control or form, you get VB's version of 
a system color, for example. When you write modules, classes, 
or controls that others use, you have no control over what's 
being passed to your methods and properties. It's best to always 
check. —K.E.P. 

Q IMPORT TEXT FILES 
I'd like my program to be able to extract information 
from comma-delimited text files. What's the best way to 
handle such files in VB? 

AVB provides several ways to read text files. Which way is 
best depends on what you want to do with the data after 
you've read it. 

Perhaps the most common reason for reading delimited text 
files is to import data into a database. If that's what you have in 
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mind, I suggest you use the Jet database engine's Text ISAM driver 
to process the files. Jet is the database engine shared by VB and 
Microsoft Access. It includes several drivers for accessing exter- 
nal — that is, non-Access — data: Excel, dBase, Paradox, and yes, 
text files. If your program includes a data control or Data Access 
Objects (DAO), you're already using the Jet engine; you might as 
well take advantage of its capabilities to import text files. 

The "correct" way to import text data into a database is to 
append the text file to the database's TableDefs collection. I say 
"correct" because there's an undocumented trick that accom- 
plishes the same thing with less code; we'll talk about that in a 
moment. After attaching the text file, you can use a SELECT. . . INTO 
query to copy the records from the file into a "real" Access table. 
When you've finished importing the data, you can detach the 
text file by deleting it from your database's TableDefs collection 
(see Listing 2). 

Ha! You didn't even finish reading the preceding paragraph, 
did you? You skipped to this one as soon as I said, "undocu- 
mented trick." Well, here it is: you don't have to mess with the 
TableDefs collection to read data from a text file. You can embed 
the connection information Jet needs to read the file directly in 
a SQL query. So, instead of typing in this code: 

' Create new TableDef and attach 
■ sFileName to database 
Set td - db.CreateTableDef 
With td 

' Generate unique name for temp table 
.Name - CStrtCLng(Timer) ) 
.Connect - "Text; Database-" & sPath 
.SourceTabl eName - sFileName 
End With 

db.Tabl eOefs .Append td 

• Copy records from sFileName into sTableName 
SQL - "SELECT * INTO [" & sTableName & "] " & _ 

"FROM " & td.Name 
db. Execute SQL 

' Detach text file from database 
db. TableDefs. Delete td.Name 



You can simply do this: 

SQL - "SELECT * INTO [" 
"[Text: Database-" & 
db. Execute SQL 



& STableName & "] FROM " & 
sPath & "]." & sFileName 



The latter requires less code and might run slightly faster, 
but it's not as readable: Another programmer — one less skilled 
than you and 1, of course — might not be able to figure out what 
you're doing. If you use this technique, I recommend you com- 
ment it thoroughly. It might even be a good idea to include the 
first block of code in your comments. 

What if you want to read data from a text file in an 
application that has nothing to do with databases? It would 
be overkill to drag the whole Jet engine into your app just to 
parse some text. Fortunately, it's a simple matter to create a 
VB function that extracts fields from a delimited line of text 
(see Listing 3). The Parse function accepts a string containing 
the raw text data, another containing the delimiting charac- 
ter, and a string array. When the function returns, each 
element of the string array contains one field of the text 
record. You can use VB's UBound function to determine how 
many elements are in the array. 

To process an entire file, use VB's Line Input statement to 
read it one line at a time, pass each line to the Parse function, and 
manipulate the data as desired: 



VB3, VB4/16, VB4/32, VB5, VBA 

Public Sub Parse(ByVal sText As String, _ 
ByVal sDelim As String, sArrayO As String) 

' Parses text buffer (sText), returning items 

' separated by sDelim in sArrayO. 
Dim iStart As Integer 
Dim i Found As Integer 
Dim nElement As Integer 

' Count number of delimiters so we 

' know how large to dimension array 

i Start - 1 

Do 

iFound - InStrO'Start, sText, sDelim) 
nElement - nElement + 1 
iStart - iFound + Len(sDelim) 
Loop While iFound 

' Always return at least one element 
ReDim sArrayd To nElement) As String 

iStart - 1 
nElement - 1 
Do 

iFound = InStrOStart. sText, sDelim) 
If i Found Then 

sArray(nElement) - Tri m$ ( Mi d$ ( sText , _ 

iStart, iFound - iStart)) 
nElement - nElement + 1 
iStart - iFound + Len(sDelim) 
End If 
Loop Whi 1 e i Found 

sArray(nElement) - Mid$(sText, iStart) 
End Sub 

Listing 3. VB's InStr Function Makes Parsing Easy. You can 

use this function to extract data from delimited text without 
incurring the overhead of the Jet database engine. The Parse 
function accepts a string containing the raw text data, another 
containing the delimiting character, and a string array. 

Dim hFile As Integer 
Dim sArrayO As String 
Dim sDel im As String 
Dim sText As String 

sDel im - "." 
hFile - FreeFile 

Open sFileName For Input As hFile 

Do Until EOF(hFile) 

Line Input #hFile. sText 
Call ParsefsText. sDelim, sArrayO) 
' - Process fields (returned in sArray) here 

Loop 

Close hFile 



—P.W. 



Code Online 



You can find all the code published in this issue of Getting Started with 
Visual Basic on The Development Exchange (DevX) at http:// 
www.windx.com. For details, please see "Get Extra Code in DevX's 
Premier Club" in the Table of Contents. 

Scroll that Picture Box 
Locator + Codes 

Listings for the entire issue, plus VB5 source code for a scrollable picture box 
control (ScrollPic), and the ready-to-use OCX (free Registered Level): 

GS298 

Listings for this article only, plus the code and OCX files described above 
(subscriber Premier Level): APGS298 



http://www.windx.com 



Getting Started with Visual Basic SUMMER 1998 75 



Programming Excel 



Track Component Use 
with Excel VBA 



by Chris Barlow 



u 



se Excel 97 to analyze file 
usage across your Visual Basic 
projects. 



Visual Basic is built on the concept of reusable components. If you 
plan carefully as you develop your procedures, you can build up 
a powerful code library of forms, modules, and classes that will 
make each new project easier to develop than the previous one. 
At my company, SunOpTech, we have a standard module, 
SUNOP.bas, that contains procedures used in most of our projects. 
The procedures parse strings, extract file names from paths, trim 
null characters from a string, and so on. Another module, 
SOTDTS.bas, contains procedures that convert dates and times 
between double, long, and hexadecimal strings. 

The OCXand VBX files that contain ActiveX controls encapsulate 
sophisticated functionality you can reuse in your Visual Basic 
projects. However, you can get many of the same reusability benefits 
by developing your own class modules. You can use your own 
standard set of features in future projects — either directly or by 
compiling them into ActiveX servers. 

As you develop multiple projects over time by reusing cer- 
tain components, you will have a more and more difficult time 
managing these shared components. Did the OBJobAgent project 
use the SPREAD, vbx or the newer SSVBX25.vbx? Did the OBSuper 
project share the OBORD32 module with the AvailAgent project? 
You need to make a change to the version-checking procedure — 
which projects use the OBVer module? 



OBJECTS 



For a full view of the 
Excel 97 object model, 
visit the VBA Objects 
site at http:// 
objects, windx. com. 



Chris Barlow is president of Sun Op Tech, a 
developer of document-management, de- 
cision-support, and supply-chain applica- 
tions, including the ObjectBank, 
ObjectOrder, and ObjectJob Systems. He 
holds two U.S. Patents related to software 
for decentralized distributed asynchronous 
object-oriented and scheduling systems. 
Chris, who is a frequent speaker at VBITS, 
Tech»Ed, and DevDays and has been fea- 
tured in two Microsoft videos, holds de- 
grees from Harvard Business School and 
Dartmouth College. Reach Chris at 
Chris@VBExpert.com or through his Web 
server at http:/ /www. VBExpert.com. 



As you upgrade shared procedures or controls, you don't 
want to waste all productivity savings by breaking existing 
projects. Some source code repositories are designed to help 
you manage these components, but most smaller organizations 
don't have an easy way to handle these problems. As a Visual 
Basic programmer, you can use Visual Basic for Applications 
(VBA) within Excel 97 to develop some Excel pivot tables that 
show component usage by project (see Figure 1). 

Visual Basic project files are simple ASCII files that contain 
the paths and file names for the files in the project. Visual Basic 
versions 1 through 3 used a simple file that showed only the 
forms, modules, and VBX files contained in the project (see 
Listing 1). VB4 and VB5 changed the file format and the exten- 
sion to include more detailed information required for the 
projects, such as class modules, OCX GUIDs and versions, and 
referenced ActiveX servers (see Listing 2). 

You can open these project files as regular ASCII files, read 
the file names, identify the file type, and use the built-in 
capabilities of Excel 97 to create a pivot table from the data. 
Because of Office 97's programmability and the fact that the 
same language you use in standalone Visual Basic is built into 
all Office applications, you have many options for creating this 
solution. You could write the procedures using Visual Basic 5 
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Figure 1 . Create a Project Pivot Table. This pivot table was 
created using the CreateVBProjCrossRef procedure. Notice how 
easy it is to see which projects use each of the controls. 
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and drive Excel as an ActiveX server. But I'm going to show you 
how to write the procedures within the Visual Basic environ- 
ment hosted by Excel so you can learn how easy it is to work 
with Excel. You'll also see how similar VBA is to the standalone 
Visual Basic product. 

SET UP YOUR PROCEDURES 

Launch Excel and press Alt-Fll to open the Visual Basic develop- 
ment environment. This should look familiar to you — the environ- 
ment is the same in all Visual Basic products. If you're a VB 
programmer, you're also a VBA programmer. Insert a new module 
and type this code in the code window: 

Sub CreateVBProjCrossRef ( ) 

SetUpHeadi ngs 

Do While LoadProjectFi 1 e 

Loop 

CreatePi votTabl e 
End Sub 

The procedure sets up the headings that you'll use in the 
pivot table, then keeps loading Visual Basic project files into a 
sheet until the LoadProjectFile procedure returns False. The 
procedure then calls a subroutine to create the pivot table. I 
always start my highest-level procedures in this simple manner. 
It's almost like creating pseudocode that shows exactly what 
the procedure will do. Then I write the subroutines to do the real 
work. I find that this approach is self-documenting and makes it 
easy for another programmer to pick up and understand. 

The SetUpHeadings procedure is nearly as easy to code. It 
uses the Selection object of the active sheet to assign the column 
headings. Notice that you use the Offset method to move to the 
right to fill in the second and third column headings, and to move 
the selection back to the first row under the first column heading: 

Sub SetllpHeadingsC ) 
Selection = "Project" 
Selection. OffsettO, 1) - "Type" 
Selection. OffsettO, 2) - "File" 
Selection. Offsetd. 0). Select 
End Sub 

The LoadProjectFile procedure needs to display a common 
dialog to locate the MAK or VBP project files. Use the 
GetOpenFilename method of the Application object to display 
this dialog. Call the LoadVB procedure to load the information 



from the Visual Basic project file into a Files collection and put 
the information from the Files collection into the sheet. Notice 
that the first For. . .Next loop steps through the Files collection, 
while the second For... Next loop steps through the array of 
detail information for each file: 



u 



se VBA within Excel 97 
to develop Excel pivot 
tables that show 
component usage 
by project. 



Function LoadProjectFi 1 eC ) As Boolean 
Dim File, FileDet 

File - Appl i cati on .GetOpenFi 1 ename(_ 
FileFilter:-"VB Project Files 
(*.mak;*.vbp) , *.mak;*.vbp" , 

Title:-"Load VB Project File". ButtonText :-"Load" ) 
If File <> False Then 
Project - File 
If LoadVB Then 
'put in spread 
For Each File In Files 

For Each FileDet In File 
Selection - FileDet 
Selection. OffsettO, 1). Select 
Next 

Selection. Offsetd, -3). Select 
Next 
End If 

LoadProjectFile - True 
End If 

End Function 



SH0PVW2. FRM 

C:\WINDOWS\SYSTEM\CMDIALOG.VBX 

SHOPVIEW.BAS 

. .\0B0RD3.BAS 

. .\S0TDTS.BAS 

. .\SUN0P.BAS 

C:\WINDOWS\SYSTEM\THREED.VBX 
C:\WIND0WS\SYSTEM\SPREAD20.VBX 
. AOBJOB.BAS 

C:\WINDOWS\SYSTEM\SSIDXTAB.VBX 
C:\WINDOWS\SYSTEM\SSDOCKTB.VBX 
DBV.BAS 

C: \WINDOWS\SYSTEM\DWVSTAMP . VBX 
. .\0BJSAF.BAS 
. .\UNC.BAS 
. . \DEBUG3 . BAS 
. .\0BCONS3.BAS 



. . \SPREAD . BAS 

C:\WINDOWS\SYSTEM\GRAPH.VBX 

. . \0BCALNDR. BAS 

. . \0BMASTER. BAS 

C:\WINDOWS\SYSTEMWSVIEW.VBX 

. .\PRICING.BAS 

. . \NB0M . BAS 

. .WER.BAS 

. .U00LS.BAS 

. .\0BST0CK.BAS 

C:\WIND0WS\SYSTEM\MS0UTLIN.VBX 
. .\0B0RDI6.BAS 
SH0PVW3 . BAS 
. . \BARC0DE . BAS 

C:\WINDOWS\SYSTEM\BARCODE.VBX 

SHOPVIEW.FRM 

INIFORM.FRM 

ABOUTSHV.FRM 

DETAIL. FRM 

MDICOMPI.FRM 



COMPLETE. FRM 
. . \F0BJBANK. FRM 
FSORT. FRM 
SHOPGRAP . FRM 
FRM_PREV . FRM 
J0B_PREV. FRM 
. . \T00LSCAN . FRM 
FWORKSP . FRM 
CHANGE. FRM 
ASSIGN . FRM 
FRM_H0LD. FRM 
FSHOPQUA. FRM 
FMULTSCH. FRM 
FPRTRAV . FRM 

ProjWinSize-26,541,257,481 
ProjWi nShow-2 

Command-"\\bmachl\sunop\database" 
IconForm-"FrmMain" 
Title-"ShopView" 
ExeName--SHOPVIEW.EXE" 



Listing 1 . Typical Visual Basic 3 MAK File Format. The VB3 MAK file contains a list of the paths and file names for the forms, modules, 
and VBXs contained in the project. 
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Visual Basic 5 from the 
Ground Up 

Gary Cornell 

ISBN: 0-07-882349-8, $34.99, 
759 pages. You'!! learn how 
to harness the new Internet 
capabilities built into VB 5. 



Visual Basic Components 
Sourcebook for Developers 

Jeffrey P McManus 
ISBN 1-56276-544-2, $39.99 
430 pages, CD-ROM 
Catalogs and reviews hundreds 
of Visual Basic components 
from shareware to shrink-wrap. 




Special Edition Using 
Access 97, Second Edition 

Roger Jennings 
ISBN 0-7897-1452-3, $49.99 
1275 pages, Your authoritative 
guideto mastering everyfacet 
of this powerful 32-bit data- 
base development platform. 



VISUAL 
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Teach Yourself VB 5 in 21 
Days Professional 
Reference Edition 

Nathan Gurewich& OriGurewich 
ISBN 0-672-31176-3, $49.99, 
919 pages, CD-ROM 
Essential principles for design- 
ing and developing VB apps. 




ABOUT FACE 





Cw VISUAL 
p~ BASIC 5.0 

PROGRAMMER'S 
£ GUIDE TO THE 

3 WIN32 API 




Microsoft Visual Basic 5.0 
Developer's Workshop, 4th Ed. 

John Clark Craig & Jeff Webb 
ISBN 1-57231 -436-2, $44.99 
725 pages, CD-ROM. The recipes 
to buitd powerful graphical appli- 
cations for the Windows 95 and 
Windows NT operating systems. 
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Visual 
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Applications 5 



About Face: The 
Essentials of Windows 
Interface Design 

Alan Cooper 

ISBN 1-56884-322-4, $29.99, 
558 pages. A methodology 
of user interface design. 



Web Development with 
Visual Basic 5 

Davis Chapman. 
ISBN 0-7897-081 1-6, $49.99 
937 pages, CD-ROM. Covers 
every aspect of VB 5 apps de- 
velopment incl. active Web 
content development 




Dan Appfeman's VB 5.0 Program- 
mer's Guide to the Win32 API 

DanAppleman 

ISBN: 1-56276-446-2, $59.99, 1449 
pages, CD-ROM included. This 
books helps you harness the 
power of the Windows 32-bit op- 
erating system using Visual Basic. 



Advanced Microsoft VB 5 

The Mandelbrot Set (Interna- 
tional) Limited 
ISBN 1-57231 -414-1, $49.99 
795 pages, CD-ROM 
For intermediate and advanced 
developers who want to push Vi- 
sual Basic 5tothe limit 



Visual Basic 5 Interactive 
Course 

John Harrington, et al 
ISBN 1-57169-077-8, $49.99 
1026 pages, CR-R0M. 
Provides thorough coverage 
of VB 5's new ActiveX and 
Event features. 



Teach Yourself Visual Basic 5 
In 21 Days 

Nathan Gurewich& OriGurewich 
ISBN 0-672-30978-5, $29.99 
769 pages, is a hands-on guide 
to learning all the basic pro- 
gramming aspects ofVB 



Teach Yourself VB for Apps 5 
in 21 Days, 3rd Ed. 

Matthew Harris 
ISBN 0-672-31016-3, $39.99 
1214 pages. Using step-by-step 
instructions and real -wo rid ex- 
amples, you'll master fundamen- 
tal elementsand concepts of VBA. 



Special Edition Using Visual 
Basic 5, Second Edition 

Mike McKelvy, Jeff Spotts, & 
Brian Slier 

ISBN 0-7897-1288-1, $39.99 
1058 pages. Complete coverage 
of all the features of Visual 
Basic 5. 




VB Tips & Tricks 

David McCarter 
ISBN 1-890422-00-2. $24.95. 
141 pages. Two disks included. 
The first in a series of books de- 
rived from the author's VB Tips 
& Tricks electronic newsletter. 
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Special Edition Using Visual 
Basic for Applications 5 

Paul Sanna, et al. 
ISBN 0-7897-0959-7, $49.99 
776 pages, CD-ROM. Covering 
the newfeatures of VBA 5, makes 
this developer's choice for Office 
97 application development 





VB 5 Superbible Set-2 vols. 

Eric Winemiller, David Jung, 
Pierre Boutquin, John Harrington, 
Bill Heyman, Ryan Groom, Todd 
Bright & Bill Potter 
ISBN 1-57169-102-2, $69.99 
2275 pages, CD-ROM. Updated 
coverage of all VB concepts. 
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Visual Basic Programmer's 
Guide to Serial Communications 

Richard Grier 

ISBN 1-890422-25-8. $34.99. 272 
pages. Disk included. Add serial 
communications to your VB 
apps using controls and the 
Windows API. 



Visual Basic 5 Client/ 
Server How-To 

Noel Jerke, et al 
ISBN 1-57169-078-6, $49.99 
861 pages, CD-ROM 
Practical guide to implementing 
client/server apps and solving 
development problems 



Hardcore Visual Basic 5.0, 
Second Edition 

Bruce McKinney 
ISBN 1-57231 -422-2, $49.99 
723 pages, CD-ROM. Tackles 
tough issues with smart cod- 
ing, practical tools and analy- 
sis, and an unblinking style. 
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Visual Basic 5 Developer's 
Guide 

Anthony T. Mann 
ISBN 0-672-31048-1, $49.99 
992 pages, CD-ROM 
Filled with essential information 
that will enhance your skills and 
expand your knowledge of VB 5. 




FEATURED BOOKS OF THE MONTH 



F7T 


Doing Objects 


in Microsoft 




Visual Basic 5.0 




Deborah Kurata 



This book goes beyond the typi- 
cal how-to tips and tricks to 
teach you a pragmatic ap- 
proach to application design 
and development. You'll learn 
how to build classes and imple- 
ment objects in all your projects, 
integrate databases into your 
object-oriented applications, 
buitd ActiveX servers and 
ActiveX controls, and convert 
your VB forms into ActiveX 
documents thatyou can display 
from a Web browser. 




Microsoft insider William 
R. Vaughn shows devel- 
opers how to use Visual 
Basic 5.0 to access data 
via SQLServer. This fifth 
edition also reveals the 
possibilities within the 
latest Visual Basic 5.0 
technology-including its 
new ability to support a 
fully event-driven model. 



DEVELOPING 

ActiveX 

COMPONENTS- WITH 

VISUAL 
BASIC 5.0 



Dan Appfeman's book teaches you 
ActiveX control development for 
both applications and the Internet/ 
intranet You'll find a review of key 
technology, from beginning OLE 
fundamentals to the latest in 
ActiveX component, ActiveX con- 
trol, and ActiveX document tech- 
nology. Learn to design an object 
model, create and test compo- 
nents, straighten out versioning 
problems, and understand con- 
tainer dependencies. 



Doing Objects in Microsoft 
Visual Basic 5.0 

Deborah Kurata 

ISBN 1-56276-444-6, $49.99, 545 pages, CD-ROM 



Hitchhiker's Guide to Visual 
Basic & SQL Server, 5th Ed. 

William B. Vaughn 

ISBN 1-57231-567-9, $49.99, 784 pages, CD-ROM. 



Dan Appleman's Developing ActiveX Components with 
Visual Basic 5.0: A Guide to the Perplexed 

Dan Appleman 

ISBN 1-56276-510-8, $49.99, 716 pages, CD-ROM 



Core Visual Basic 5 

Gary Cornell & Dave Jezak 
ISBN 0-13-748328-7, $49.95 
912 pages, CO-ROM 
Riled with insidertipsandtricks that 
are documented nowhere else. 
Core Visual Basic 5 is the only book 
with complete coverage of the new 
Visual Comonent Manager. 
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2 Ways to Order 



CALL 

800-848-5523 



Check out The Development Exchange 
for a complete list of books available to 
ORDER ONLINE at: 

www.windx.com 



Teach Yourself Database 
Programming with VB 5 in 
21 Days, Second Edition 

Michael Amundsen & Curtis 
Smith 

ISBN 0-672-31 01 8-X, $45.00 
1041 pages, CD-ROM. Learn 
everything from the simplest 
program to creating and 
securing large database pro- 
grams. 



Buy three or more books and save 1 5% 



FTP Books 

FAWCETTE TECHNICAL PUBLICATIONS 

209 Hamilton Avenue 
Palo Alto »CA« 94301 
PHONE: 650-833-7100 
FAX: 650-853-0230 
www.windx.com 
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The LoadVB procedure opens the selected file and determines 
whether the file is a VB4 or VB5 project file by checking for an 
equals sign in the first line. Then it calls either the LoadVB5 or 
LoadVB3 procedure. You can see how each of these procedures 
uses a Case statement to identify the type of file. The LoadVB3 
procedure uses the ParseString function to return the string 
following the period so it can identify the file as FRM, BAS, or VBX. 



E 



xcel pivot tables are 
extremely powerful, 
but can be tedious to 
create from code. 



Then the LoadVB3 procedure adds the file to the Files collection 
using an Array statement to create a Variant array of the project 
name, file type, and file path. The procedure loops until the file is 
completely read: 

Private Sub LoadVB3( Fi 1 eNum58) 
Dim txt$ 

Do While Not E0F( Fi 1 eNum) 
Input #FileNum, txt 
txt - LCase(txt) 

Select Case ParseStringttxt, 2) 
Case "frm" 



VB5 

Type-Exe 

Object-{00028C01-0000-0000-0000-000000000046}#1.0#0; 

DBGRID32 . OCX 
Reference-*\G{00020430- 0000-0000- C000-_ 

000000000046}#2 . 0#0#C : \WI ND0WS\SYSTEM\STD0LE2 .TLB#_ 

Standard OLE Types 
Reference-*\G{00025E04- 0000-0000- C000-_ 

000000000046}#3.5#0#C:\PR0GRAM FILES\C0MM0N _ 

FILES\MICR0S0FT SHAREDXDC : \ PROGRAM FI L#Mi crosof t DA0 _ 

2.5 Object Library 
Reference-*\GC1187DF4B-6F23-llD0-97D5-_ 

444553540000}#1.0#0#C:\PR0GRA~1\C0MM0N~1\0LESVR\_ 

S0TSERVE . EXE#S0TTi meServer 
Reference=*\G{7FE727A3-7059-llD0-A2A3-_ 

00C04FC58652}#1.0#0#C:\SUN0P\CRCSERVE.EXE#CRCServer 
Object-{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#l.l#0; 

C0MDLG32 . OCX 

0bject-{B02F3647-766B-llCE-AF28-C3A2FBE76A13}#2.5#0; 

SS32X25.0CX 
Reference=*\G{B3F42A46-0F3D-llDl-B44F-_ 

444553540000}#1.0#0#C:\VB\APPS\VBPJ\1997\VBPJ9711\_ 

S0TMAPI.dll#S0TMAPI 
Form-FrmHM. FRM 

Modul e-DEBUG3 ; . . \DEBUG3 . BAS 
Module-UNC32; ..\UNC32.Bas 
Modul e-HMBLD ; HMBld.bas 
Module-OBJOB; ..\0bjob.bas 
Modul e-S0TDTS32; . . \Sotdts32 . bas 
Module-Module2; . . \0bord3 . bas 
. \0bcons3.bas 
.\Sunop32.BAS 
. .\0bmaster.bas 
. \Pri ci ng . bas 
, \0B0rd32.bas 



Modul e-Modul e3 ; 
Module»Sun0p32; . 
Modul e-OBMASTER; 
Module-PRICING; . 
jle-0B0rd32; . 



Files. Add ArraytProject, _ 
"Form", txt), txt 
Case "bas" 

Files. Add ArraytProject, "Module", txt), txt 
Case "vbx" 

Files. Add ArraytProject, _ 

"Control", StripPathName(txt) ) , txt 
End Select 
Loop 
End Sub 

The LoadVB5 procedure, on the other hand, parses the string 
read from the file at the equals sign to determine the file type. 
Inside the appropriate Case statement, it parses differently de- 
pending on the format of that type of line: 

Private Sub LoadVB5( Fi 1 eNum%) 
Dim txt$, itm$ 
Do While Not EOF(FileNum) 
Input #FileNum, txt 
txt - LCase(txt) 
itm - ParseStringttxt, "-" , 1) 
txt - ParseStringttxt, "-" , 2) 
Select Case itm 
Case "object" 

Files. Add ArraytProject. _ 

"Control", ParseStringttxt, 2)), txt 

Case "reference" 

Files. Add ArraytProject, _ 

"Reference", StripPathNametParseStringttxt, "#" , _ 
4))), txt 
Case "module" 

Files. Add ArraytProject, _ 

"Module", ParseStringttxt. 2)), txt 



Modul e=0BStock32; . . \0bstock32 . bas 

Form=. . \Aboutbox32 .frm 

Modul e-Spread32 ; . . \Spread32 . bas 

Module-MAPI32; . . \Mapi 32 . bas 

IconForm-"f rmMai n" 

Startup-"frmMain" 

Hel pFi 1 e-"" 

Title-"HMBuild" 

ExeName32-"HMBuild.exe" 

Command32="" 

Name="HMBuild" 

HelpContextID-"0" 

Compati bl eMode="0" 

MajorVer-3 

Mi norVer=3 

Revi si onVer=9 

AutoIncrementVer-1 

ServerSupportFil es-0 

Versi onCompanyName-"Sun0pTech8" 

Versi onLegal Copyri ght-"© 1997 SunOpTech, 

Versi onLegal Tr a demarks-"Sun0pTech®" 

Compi 1 ati onType--l 

OptimizationType-O 

FavorPenti umPro(tm) — 1 

CodeVi ewDebuglnfo-O 

NoAl i asi ng-0 

BoundsCheck-0 

Overf 1 owCheck-0 

FI PointCheck-0 

FDIVCheck-0 

UnroundedFP-0 

StartMode-0 

Unattended-0 

ThreadPerObject=0 

MaxN umber Of Threads-1 



Ltd. 



Listing 2. Typical Visual Basic 5 VBP File Format. The VB5 VBPfile contains a list of the GUIDs, paths, and file names for the forms, 
modules, classes, references, and OCXs contained in the project. 
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Programming Excel 



Case "form" 

Files. Add ArrayCProject, "Form", txt), txt 

End Select 
Loop 
End Sub 

CREATE A PIVOT TABLE 

Now you've finished the first two functions for the main 
CreateVBProjCrossRef procedure. The user has selected the 
Visual Basic project files, and the data has been loaded into a 
worksheet. Next, you need to create a pivot table from this 
data. Excel pivot tables are extremely powerful, but can be 
tedious to create from code. I always use the Recorder as I 
create the pivot table using the Pivot Table Wizard from the 
Data menu. Then I modify the code to operate in a generic 
manner. This code was created by the Recorder; you can see 
that the first line uses a reference to a specific range of 16 rows: 

Sub RecordedPivotTableMacroO 

Acti veSheet . Pi votTabl eWi zard SourceType:-xl Database, _ 

SourceData:-"Sheetl!RlCl:R16C3". _ 

TableDesti nation:-"". Tabl eName :-" Pi votTabl el" 
Act iveSheet. Pi votTabl es( "Pi votTabl el"). _ 

AddFields RowFields:-Array("Type", 

"File"), Col umnFiel ds :-" Project" 
Acti veSheet. Pi votTabl est "Pi votTabl el"). 

Pi votFieldsC'Fi le") .Orientation - xlDataField 
End Sub 

To make this procedure useful for any number of rows, you need 
to add only two lines of code to move the selection up one row. Use 
the CurrentRegion method of the Selection object to select all the 
contiguous columns and rows. You can change the SourceData 
argument of the PivotTableWizard to use the Selection as the range: 

Sub CreatePivotTableO 
Selection. Offset(-l, 0). Select 
Sel ecti on.CurrentRegi on . Sel ect 
Acti veSheet . Pi votTabl eWi zard 

SourceType :-xl Database , SourceData :-Sel ecti on , _ 

TableDesti nation:-"", Tabl eName: -"Pi votTabl el" 
Acti veSheet. Pi votTabl es( "Pi votTabl el" ) . 

AddFields RowFields:-Array("Type", _ 

"File") . Col umnFi el ds :-" Project" 
Acti veSheet . Pi votTabl est "Pi votTabl el"). 

PivotFieldsC'File"). Orientation - xlDataField 
End Sub 

Try out your new procedure on some of your Visual Basic 
projects. You can see how easy it is to use the power of Excel to 
help manage your Visual Basic projects. M 
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COM Interfaces 



Convert Text Files 



Put COM Interfaces 
to Work 



by Chris Barlow 



u 



'se COM interfaces to build a 
document management app that 
converts text files. 



Microsoft's Component Object Model (COM) is the foundation 
for all ActiveX servers. One of COM's most powerful features is its 
ability to create interfaces to a COM object. These interfaces allow 
you to publish a set of properties and methods that other 
applications can use to exchange information with your applica- 
tion through COM. Many books and articles have been written 
about developing COM objects and their interfaces. Unfortu- 
nately, most are written for C++ programmers and contain a lot of 
detail about Globally Unique IDs (GUIDs), the IUnknown interface, 
CoCreateCIass, and so on. 

Visual Basic programmers have it much easier than C++ pro- 
grammers because VB handles most of these details. Sometimes it 
is difficult to cut through all this extra information to find out what 
a VB programmer needs to do to create COM interfaces. It might 
surprise you that even a beginning programmer can quickly and 
easily write a COM interface and ActiveX objects to use it. 

At my company, we used VB5 to write a document-management 
product called ObjectBank. You can drag and drop any kind of file 
or OLE object onto the ObjectTeller and fill out the deposit slip with 
keywords, which enables you to find the document quickly. In a 
document-management system, it is vital to index the document 
correctly. But how can a program automatically index so many 
different file formats? The ObjectBank makes use of the power of 
COM interfaces to publish an IOBSFileConvert interface. This 
interface is a set of properties and methods that provides the index 
information for a document and automatically adds the keywords 
to the deposit slip. 

This article shows you how to prepare a slightly simplified 

Chris Barlow is president ofSunOpTech, a developer of document- 
management, decision-support, and supply-chain applications, 
including the ObjectBank, ObjectOrder, and ObjectJob Systems. 
He holds two U.S. Patents related to software for decentralized 
distributed asynchronous object-oriented and scheduling systems. 
Chris, who is a frequent speaker at VBITS, Tech'Ed, and DevDays 
and has been featured in two Microsoft videos, holds degrees from 
Harvard Business School and Dartmouth College. Reach Chris at 
Chris@VBExpert.com or through his Web server at http:// 
www. VBExpert.com. 



version of this interface, called IFileDesc. You can use this as a 
template to create your own COM interfaces. You need to create 
three VB projects: one for the IFileDesc interface, one to imple- 
ment the IFileDesc interface for a specif ic type of file, and one "test 
harness" to emulate the functions of the ObjectBank. 

First, create the IFileDesc interface. You can contain this 
interface within a type library, but it is easier for you as a VB 
programmer to contain this interface in a simple ActiveX DLL. The 
DLL will have two classes, but no code. You'll use the DLL to publish 
the standard properties and methods of the IFileDesc class. 

Next, start VB5 and create a new ActiveX DLL proj ect. Give the 
new project a public class called Class 1 . Every ActiveX DLL needs 
at least one public class, so rename this class to EmptyPublicClass. 
Insert another class module, name it IFileDesc, and set its in- 
stancing property to PublicNotCreatable. The user will never 
create an instance of this class — it is only used as the interface 
that other classes implement. Insert this code in this class 
module for the public properties and methods of this interface: 

Option Explicit 

Public SourceFile As String 



"^iSunFileDesc - Microsoft Visual Basic [design] - [TxtFileDesc (Code)J (P"| j 



; Fife Edit View Project Format n_ebw 
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t| ^Declarations) 



Implements IFileDesc 

Private mAuthor As String 
Private mCharacters As Long 
Private mFullText As String 
Private mSourceFile As String 
Private mSubject As String 
Private mTitle As String 



Private Property Get IFileDesc Author () As String 
IFlleDesc_Author = mAuthor 

End Property 



Figure 1 . Add Procedures and Properties with Interfaces. 

You get a special set of procedures in your code window when you 
implement a referenced interface. These procedures let you 
implement all the properties and methods of the interface. 
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Public Title As String 

Public Subject As String 

Publ ic Author As String 

Public Characters As Long 

Public FullText As String 

Public Function GetContentO As Boolean 

End Function 

Name the project FileDesc, save it, and compile it as 
FileDesc.dll. You've completed the COM interface. 

Now create a file converter that implements this COM 
interface to index memos written in a standard text file format: 



Date: 
Author: 
Subject: 
Title: 



November 17, 1997 
Chris Barlow 
IFileDesc Interface 
Test Text File for Column 



This is a test text file for the FileDesc interface column. 



A 



test harness is a small 
application that 
provides just enough 
functionality to test 
your ActiveX objects. 



The file converter opens this text file, searches for the Date, 
Author, Subject, and Title, and returns them through the 
IFileDesc interface. 

Create a second VB ActiveX DLL project, and name the class 
module TxtFileDesc. Select References from the Project menu, 
and add a reference to your FileDesc DLL. This reference lets 
you implement the IFileDesc interface: 

Option Explicit 
Implements IFileDesc 

Private mAuthor As String 
Private mCharacters As Long 
Private mFullText As String 
Private mSourceFile As String 
Private mSubject As String 
Private mTitle As String 

Click on the left combo box in the code window, and you'll 
see an entry for the IFileDesc interface (see Figure 1). Next, add 
code for the properties and methods of this interface. COM 
requires every object that implements an interface to imple- 
ment every property and method of that interface. You need to 
click on each of the items in the right-hand combo box to add all 



, DemolFileDesc - Microsoft Visual Basic [design] - [DemolF... EJ 



File Edit View Project: Format Debug Run Tools Add-Ins Window 
Help -Ifll x 

? * q - n q£ y i f@> | «? | ► H ■ 




Figure 2. Create a Test Harness Form. Every ActiveX object 
that you develop needs to have a test harness so you can test the 
properties and methods of your component. This form implements 
the OLEDragDrop event so you can drag files from Windows 
Explorer to the form. 

the properties and methods for the IFileDesc interface to the 
code window. Note that the names of these procedures are 
prefaced with the name of the interface being implemented, 
allowing your project to implement different interfaces that 
have the same name for a property or method. 

Most of the properties of this interface are read-only — that is, 
you only need to add code in the Property Get procedure, and you 
can leave the Property Let procedure empty. Add code for all the 
properties using the Author property as a guide (see Listing 1): 

Private Property Get I Fi 1 eDesc_Author ( ) As String 
I Fi 1 eDesc_Author - mAuthor 
End Property 

Private Property Let I Fi 1 eOesc_Author ( By Val RHS As String) 
End Property 

The SourceFile property is a special case because it needs 
code for both its Get and Let procedures. The calling application 
uses this property to pass the name of the file to be converted. 
This enables you to write and read the file: 

Private Property Let IFileDesc„SourceFile(ByVal RHS As String) 
mSourceFile - RHS 
End Property 

Private Property Get IFileOesc_SourceFile( ) As String 
I Fi 1 eDesc_SourceFi 1 e - mSourceFile 
End Property 

The GetContentMethod performs the real work in the con- 
verter. This procedure opens the text file and parses the 
content to locate the Subject, Author, and Title. It also stores 
the full text of the file in the FullText property, and the number 
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Option Explicit 

Implements IFileDesc 

Private mAuthor As String 
Private mCharacters As Long 
Private mFullText As String 
Private mSourceFile As String 
Private mSubject As String 
Private mTitle As String 

Private Property Get I Fi 1 eDesc_Author( ) As String 
I Fi 1 eDesc_Author - mAuthor 
End Property 

Private Property Let I Fi 1 eDesc_Author_ 
(ByVal RHS As String) 

End Property 

Private Property Let I Fi 1 eDesc_Characters_ 

(ByVal RHS As Long) 
End Property 

Private Property Get I Fi 1 eDesc_Characters( ) As Long 
IFileDesc_Characters - mCharacters 
End Property 

Private Property Let I Fi 1 eDesc_Ful 1 Text_ 
(ByVal RHS As String) 

End Property 

Private Property Get I Fi 1 eDesc_Ful 1 Text( ) As String 

I Fi leDesc_Ful IText - mFullText 
End Property 



Private Function I Fi 1 eDesc_GetContent( ) As Boolean 
Dim fn As Integer, buf As String 



If LendnSourceFi 1 e) Then 
fn - FreeFile 

Open mSourceFile For Binary As #fn 
buf - Input(LOFCfn), fn) 
mFul IText - buf 

mSubject - MidtmFullText. InStrdnFul IText. _ 

"Subject:") + 9. 20) 
mAuthor - MidtmFul IText, InStrdnFul IText . "Author:") _ 

+ 8. 15) 

mTitle - MidtmFullText, InStrdnFul IText , "Title:") _ 

+ 7. 40) 
mCharacters - LendnFul 1 Text ) 
I Fi 1 eDesc_GetContent - True 
End If 

End Function 

Private Property Let I Fi 1 eOesc_SourceFi 1 e_ 

(ByVal RHS As String) 
mSourceFile - RHS 
End Property 

Private Property Get I Fi 1 eDesc_SourceFi 1 e( ) As String 
IFileDesc_SourceFile - mSourceFile 
End Property 

Private Property Let IFileDesc_Subject_ 
(ByVal RHS As String) 



End Property 

Private Property Get I Fi 1 eDesc_Subject( ) As String 
IFileDesc_Subject - mSubject 
End Property 

Private Property Get I Fi 1 eDesc_T1 tl e ( ) As String 
IFileDesc_Title - mTitle 
End Property 

Private Property Let IFileDesc_Title(ByVal RHS As St 
End Property 



.... 



Listing 1 . Write a TxtFileDesc File Converter. The text-File 
and method of the interface must be implemented, even if the 



converter implements the IFileDesc interface. Note that every property 
procedure contains no code. 



of characters in the Characters property. This procedure also 
checks the length of the private mSourceFile variable to make 
sure this property has been set, then opens the file for binary 
read and gets a free file handle with the FreeFile statement. 
Note that the Input statement can read the entire file contents 
into a buffer variable by using the LOF function to get the 
length of the file. Next, the method sets the FullText property 
to this input buffer and uses the Instr and Mid functions to 
search for keywords in the text. Finally, the method sets the 
Characters property to the length of the text and sets the 
method to return True: 

Private Function I Fi 1 eDesc_GetContent( ) As Boolean 
Dim fn As Integer, buf As String 
If Len(mSourceFi 1 e) Then 
fn - FreeFile 

Open mSourceFile For Binary As #fn 
buf - InputtLOF(fn) , fn) 
mFul 1 Text - buf 

mSubject - MidtmFullText. InStr_ 

(mFullText. "Subject:") + 9. 20) 
mAuthor - MiddnFul IText , InStr_ 

(mFullText, "Author:") + 8, 15) 
mTitle - MidtmFullText, InStr_ 

(mFullText, "Title:") + 7. 40) 
mCharacters - LendnFul 1 Text ) 
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IFi 1 eDesc_GetContent - True 
End If 

End Function 

Name the project TextFileDesc, save it, and compile it as 

You can extend your 
test harness to handle 
other types of files. 

TxtFileDesc.dll. You've now written a COM object file 
converter that implements your IFileDesc COM interface. Next, 
you need to write a test harness — a small application that 
provides just enough functionality to test your ActiveX objects. 
Start a new VB Standard EXE project and name it DemoIFileDesc. 
Select References from the Project menu and add a reference to 
your FileDesc DLL, so you can call ActiveX objects that imple- 
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ment this interface. Add label and text-box controls to the form 
for the properties of the IFileDesc interface (see Figure 2). 

Press F7 to display the code window for the form, and add 
code. The first line of code defines a private collection variable 
to hold the class name for your file converters and the file 
extensions of the types of file they handle. The file extension 
serves as the key to the collection. Your test harness can have 
only one file converter for each file extension, and your proce- 
dure must be able to locate the proper file converter's class 
name by using the file extension as a key. Use the Add method 
of the collection to add the text file converter to your test 
harness. You would store this information in the Registry in a 
real application. When your user registers a new file converter, 
your app loads it from the Registry: 

Private mFileDescs As New Collection 



Private Sub Form_l_oad( ) 

mFileDescs. Add "SunFi 1 eDesc.TxtFi 1 eDesc" , 

End Sub 



'TXT" 



The functionality for your test harness goes in the form's 
OLEDragDrop event. This event fires when you drag one or more 
files from the Windows Explorer, Desktop, or any OLE-compat- 
ible application. The event passes a DataObject that contains a 
Files collection, which stores the file names and paths of the 
dropped files. 

The trick to using a COM interface from VB is to define two 
variables — one for the interface (iConv), and one for the COM 
object that implements the interface (oConv). You can early-bind 
the iConv variable to the IFileDesc interface because you refer- 
ence it in your project. You must dimension the oConv variable as 
"Object," however, so you can late-bind it to many different file 
converters. Your application does not know which file converters 
are available until it loads them from the Registry: 

Private Sub Form_OLEDragDrop( Data As _ 

DataObject. Effect As Long. Button _ 

As Integer, Shift As Integer, X As 

Single. Y As Single) 
Dim SourceFile, Ext$. i% 
Dim oConv As Object 
Dim iConv As IFileDesc 

This next section of code sets up a For... Next loop to loop 
through each file in the DataObject's Files collection and deter- 
mine its file extension: 

On Error Resume Next 
For Each SourceFile In Data. Files 
Textl(O) - SourceFile 
For 1 - LenCSourceFile) To 1 Step -1 
If MidCSourceFile. i, 1) - "." Then 

Exit For 
Else 

Ext - Mid( SourceFile, i , 1 ) & Ext 
End If 
Next 

Next, the procedure creates an instance of the proper file 
converter object by using the file extension as a key to the 
mFileDesc collection. It uses the CreateObject statement to get 
the text class name of the appropriate file converter so it can be 
passed as an argument: 

Set oConv - CreateObjectCmFi 1 eDescs( Ext ) ) 
If Err Then Exit Sub 



Now set the iConv variable equal to the oConv variable. This 
allows you to call the methods and properties of the loaded file 
converter pointed to by oConv from the iConv IFileDesc inter- 
face. Set the file name to the SourceFile property and call the 
GetContent method of the IFileDesc interface. Retrieve the 
properties from the interface, and set the text controls on your 
test harness form: 



T 



he OLEDragDrop event 
fires when you drag 
one or more files from 
the Windows Explorer, 
Desktop, or any OLE- 
compatible application. 



Set iConv - oConv 

iConv. SourceFile - SourceFile 

iConv. GetContent 

Textl(l) - iConv. Author 

Textl(2) - iConv. Characters 

TextlO) - iConv. Subject 

Textl(4) - iConv. Title 

Textl(5) - iConv. Full Text 

Set iConv - Nothing 

Set oConv - Nothing 
Next 
End Sub 

That's all there is to it. Now you can extend your test harness 
to handle other types of files by simply adding another class to 
TxtFileDesc.dll or by creating a new ActiveX DLL. Try out your 
new procedure on some of your files and see how easy it is to 
create COM interfaces to your applications. ■ 



Code Online 



You can find all the code published in this issue of Getting Started with 
Visual Basic on The Development Exchange (DevX) at http:// 
www.windx.com. For details, please see "Get Extra Code in DevX's 
Premier Club" in the Table of Contents. 

Put COM Interfaces to Work 
Locator+ Codes 

Listings for the entire issue, code for the VB procedures for the IFileDesc 
interface, and an enhanced DLL that contains two additional file 
converters (free Registered Level): GS298 

Listings for this article only, plus the code files described above 
(subscriber Premier Level): CIGS298 
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by Chris Barlow 



Create an add-in to flag changes 
with programmers' initials and 
change date. 



As you do more Visual Basic programming, you find yourself 
making changes to procedures or applications that you or 
someone else in your organization wrote a while ago. Maintain- 
ing a growing code base of existing applications can be one of 
the most time-consuming and error-prone activities of a soft- 
ware development organization. To make this process flow 
more smoothly at my company, we instituted coding standards 
so each code change is flagged with the programmer's initials 
and change date. This standard has made it easier to track 
changes to the code base or discuss a prior change with the 
person who made it. 

When you make multiple changes to a program in a single 
session, it takes discipline to type "CRB 05/ 15/98" with each 
change. It's easy to skip this step and go on to the next code 
change with the rationalization that it's only a minor change 
or that you'll come back and enter your initials later, after 
you've debugged the code. Predictably, you never get back to 
flag the change. Too bad Visual Basic doesn't have an option 
to insert your initials at the press of a toolbar button. What 
was Microsoft thinking? 

But wait! Microsoft was thinking after all — the entire Visual 
Basic Integrated Development Environment (IDE) is extensible 
through add-ins. Any COM object that implements the 
IDTExtensibility COM interface can hook into the IDE and 
seamlessly extend the development environment. 

Add-ins were available in Visual Basic 4.0 in a limited manner, 

Chris Barlow is president of SunOpTech, a developer of document- 
management, decision-support, and supply-chain applications, 
including the ObjectBank, ObjectOrder, and ObjectJob Systems. 
He holds two U.S. Patents related to software for decentralized 
distributed asynchronous object-oriented and scheduling systems. 
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and has been featured in two Microsoft videos, holds degrees from 
Harvard Business School and Dartmouth College. Reach Chris at 
Chris@VBExpert.com or through his Web server at http:// 
www. VBExpert.com. 



but with version 5, you can create more meaningful add-ins. 
Despite the available articles on this topic (see the sidebar, "For 
Further Reading"), my e-mail indicates that many people think 
writing an add-in is over the head of someone getting started 
with Visual Basic. Not true! You can write an add-in that marks 
your changes by inserting your initials, along with the date and 
time, directly into your Visual Basic code window with fewer 
than 20 lines of code. In the process, you'll learn about the IDE's 
extensibility object model and how to add an icon for your add- 
in to one of Visual Basic's toolbars. 

Let's get started. You need VB5 to work with the code for this 
column. You can download the complete code for this app from 
the free, Registered Level of The Development Exchange (see 
the Code Online box for details), but with a project this small, it's 
a great learning experience to start from scratch. Start a new 
ActiveX Visual Basic project and change the name of the class 
module to Connect. Select Project References (see Figure 1) and 
add a reference to Microsoft Visual Basic 5.0 Extensibility (which 
contains the IDTExtensibility COM interface) and to the Microsoft 
Office 8.0 Library (which contains the Visual Basic menus and 
toolbars as Office CommandBar objects). Change the Project 
name to Insertlnitials. Type in these five lines of code: 

Implements IDTExtensibility 

Public WithEvents MenuHandler As CommandBarEvents 



Insertlnitials. vbp 



3 Visual Basic For Applications 
1 Visual Basic runtime objects and procedures 
j@ Visual Basic objects and procedures 
|@ OLE Automation 

licrosoft Visual Basic 5.0 Extensibility 

ieci 

!□ Active Messaging Object Library 
|TJ Active Setup Control Library 
J □ Active Setup Control Library 
!□ ActiveBar Control 
ID ActiveMovie control type library 
I □ ActiveX Conference Control 
]□ Addln Project to Insert Initials and date in code 
^.XArrav Qbiert 



Cancel 



♦I 



Help 



rrosoft Office 8.0 Object Library 

Location: C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\MS097,DLL 
Language: Standard 



Figure I • Project References. You need to reference both the 
Visual Basic extensibility interface and the Office library. Do this by 
selecting References from the Project menu. 
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Private VBInstance As VBIDE.VBE 

Private mcbMenuCommandBar As Office. CommandBarControl 
Private mlnitials As String 

The first line shows that this COM object (remember, you are 
creating an ActiveX EXE, which is a COM object) will implement 
the Visual Basic IDE extensibility interface. The second line sets 
MenuHandler as the procedure that will respond to the events 
of the CommandBar object, such as a mouse click on a toolbar 
icon. The WithEvents statement, new to VB5, lets you respond 



M 



aintaining a growing 
code base of existing 
apps can be one 
of the most time- 
consuming and 
error-prone activities. 



to events in another ActiveX object. The MenuHandler proce- 
dure needs to be Public because the VB IDE calls it when the user 
clicks on your toolbar button. The third line saves the instance 
of Visual Basic that is passed to your add-in. The fourth line 
saves a reference to the toolbar where you add an icon for your 
add-in, so you can remove the icon if the user unloads the add- 
in. Finally, the last line stores the user's initials (see Listing 1). 

Look at the code window for your Connect class (see Figure 2) . 
In addition to the normal General and Class items in the Object 
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VB5 

Option Explicit 

Implements IDTExtensibility 

Public WithEvents MenuHandler As CommandBarEvents 
Private VBInstance As VBIDE.VBE 

Private mcbMenuCommandBar As Office. CommandBarControl 
Private mlnitials As String 

Private Sub IDTExtensi bi 1 i ty_OnConnecti on _ 

(ByVal VBInst As Object. ByVal ConnectMode As _ 

vbext_ConnectMode. ByVal Addlnlnst As VBIDE.Addln . 

customt) As Variant) 
Set VBInstance - VBInst 
Set mcbMenuCommandBar - _ 

VBInstance. CommandBarsC" Edit") .Control s . Add 
mcbMenuCommandBar. Caption - "Insert Initials" 
CI i pboard. SetData LoadPi cture(App. Path & "\icon.bmp") 
mcbMenuCommandBar . Paste Face 
Set Me.MenuHandl er - 

VBInstance. Events .CommandBarEvents 

(mcbMenuCommandBar) mlnitials - GetSetting(App. Title, 

"Settings", "Initials". "") 
End Sub 

Private Sub IDTExtensibi 1 i t_v_0nDi sconnecti on _ 



Listing 1 . Add-In Connect Class. This class only has 11 lines 
environment. 



For Further Reading 



For more details on creating add-ins, take a look at these 
articles in Getting Started with Visual Basic's sister publica- 
tion, Visual Basic Programmer's JournahFrsacescoBeiena's 
feature, "Roll Your Own Add-lns" [VBPJ August 1997], and 
Sam Patterson's COMponent Builder columns, "Add-lns Save 
You rime, Effort" [ VBPJ July 1 997] and "Add Some Zip to Your 
Add-lns" [VBPJ October 1997]. These articles are available in 
back issues of VBPJ (call 800-848-5523 or 650-833-7100) or 
online for Premier Club members of The Development Ex- 
change (http://www.windx.com). — Eds. 



combo box, the IDTExtensibility and MenuHandler objects are 
listed. Here you add code to implement the IDE's COM interface 
and handle a click on your toolbar icon. Remember, a COM object 
that implements a COM interface must implement all the proper- 
ties and methods of that interface. Click on the IDTExtensibility 
object, then click on each of the four items in the Procedure 
combo box. These four items are the only methods of this COM 
interface. Although all procedures must be present in your class, 
you need to add code only to the OnConnection and 
OnDisconnection methods. 

The IDTExtensibility_OnConnection method is called when 
Visual Basic instantiates your add-in — either because it was 
selected from the list of available add-ins or loaded again at 
startup after being selected the last time Visual Basic was run. 
The majority of your code resides in the IDTExtensibility_On- 
Connection method; this will be almost the same for every add- 
in you write. In this procedure, save the instance of Visual Basic 
that is passed as an argument, add your add-in to one of the 
Visual Basic menus or toolbars, and load the user's initials from 
the Registry. I chose to add my add-in to Visual Basic's Edit 
toolbar, so I used the Add method of the Controls collection of 
that toolbar, saved the reference, then set the caption. 

ADD AN ICON TO YOUR TOOLBAR 

You won't need an icon if you're adding your add-in to a menu, 
but you'll need an icon when adding your add-in to a toolbar. 



(ByVal RemoveMode As vbext_Di sconnectMode. customO 

As Variant) 
mcbMenuCommandBar . Del ete 
End Sub 

Private Sub IDTExtensibi 1 i ty_0nStartupComp1 ete(custom( ) 
As Variant) 

End Sub 

Private Sub IDTExtensi bi 1 i ty_OnAddInsllpdate(custom( ) 
As Variant) 

End Sub 

Private Sub MenuHandl er_Cl i ck( ByVal CommandBarControl 
As Object, handled As Boolean, Cancel Defaul t As 
Bool ean ) 

Dim SLine&, SCoU, ELine&, ECol& 
With VBInstance. Acti veCodePane 

.GetSelection SLine. SCol , ELine. ECol 
. CodeModul e . InsertLi nes SLine. & _ 
mlnitials & " " & Format$(Now, 
"dd-mmm-yy hh:mm:ss") 
End With 
End Sub 
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of code, yet it adds useful functionality to the Visual Basic development 
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Figure 2. Connect Class. Whenyou implement a COM interface 
or declare an ActiveX component WithEvents, your code window 
shows additional objects where you can add code. 

Because your project does not have a form or resource file, you 
add an icon to the toolbar using the LoadPicture statement to 
load a 1 6-by-l 6 bitmap to the Clipboard, then using the PasteFace 
method of the CommandBarControl object. I used MSPaint to 
create a simple icon bitmap, which is included with the source 
code you can download from the free, Registered Level of The 
Development Exchange (see the Code Online box for details). 
Link your MenuHandler procedure to the events for this button. 
Finally, load the user's initials from the Registry — lateryou'll see 
how to get them into the Registry when your add-in is registered 
with the Visual Basic Add-In Manager: 

Private Sub IDTExtensi bl 1 i ty_OnConnecti on 

(ByVal VBInst As Object, ByVal ConnectMode As 
vbext_ConnectMode, ByVal Addlnlnst As VBIDE.Addln, 
customt) As Variant) 

Set VBInstance - VBInst 

Set mcbMenuCommandBar = VBInstance. CommandBarsC'Edit") . 

Control s . Add 
mcbMenuCommandBar. Caption - "Insert Initials" 
Clipboard. SetData LoadPicture (App.Path & "\icon.bmp") 
mcbMenuCommandBar . PasteFace 

Set Me. MenuHandler - VBInstance . Events . CommandBarEvents 

(mcbMenuCommandBar) 
mlnitials - GetSetti ng(App.Ti tl e , _ 

"Settings", "Initials", "") 
End Sub 

One line of code in the IDTExtensibility_OnDisconnection 
method removes the CommandBar button when the user no 
longer wants to use the add-in: 

Private Sub I DTExtensi bi 1 i ty_0nDi sconnecti on 

(ByVal RemoveMode As vbext_DisconnectMode, customO 
As Variant) 

mcbMenuCommandBar . Del ete 

End Sub 

Now that you've connected your add-in to Visual Basic, 
added it to the toolbar, and linked it to the toolbar's Button 
event, you need to add the code in the MenuHandler procedure 
to insert the user's initials. If you scan the Visual Basic IDE 
extensibility object model in Visual Basic's Object Browser, 
you'll see an ActiveCodePane property that returns a CodePane 



object — the code window where the user enters code. Use the 
GetSelection property of the CodePane object to find which 
lines of code are selected. You want to insert the user's initials 
just above the start line of the selection. You can't insert a line 
of code in a code module using the CodePane object; you must 
use the InsertLines method of the CodeModule object: 

Private Sub MenuHandl er_Cl ick (ByVal CommandBarControl As 
Object, handled As Boolean, Cancel Defaul t As Boolean) 

Dim SLine&, SCoU, ELine&, ECol& 

With VBInstance. ActiveCodePane 

.GetSelection SLine, SCol , ELine, ECol 
. CodeModul e. InsertLines SLine, "'" & mlnitials & " " & 
Format$(Now, "dd-mmm-yy hh:mm:ss") 

End With 

End Sub 

TELL VISUAL BASIC ABOUT YOUR ADD-IN 

That's all the codeyou need foryour add-in class. Before you can 
test the code, you need to let the Visual Basic Add-In Manager 
know about your new add-in. The Add-In Manager uses the Add- 
Ins32 section of the vbaddin.ini file to get a list of add-ins. You 
could edit this file manually to add a reference to your add-in, 
but because you're developing an ActiveX EXE, there's a better 
way. Add some code to the Add-In Manager's Sub Main startup 
procedure so that running your add-in completes the OLE 
registration and sets up the INI files and Registry. Your user only 
needs to run this EXE once to register it and set his or her initials. 
Add a module and name it Addln.bas. You need the declara- 
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oo bad Visual Basic 
doesn't have an 
option to insert your 
initials at the press of 
a toolbar button. 
What was Microsoft 
thinking? 



tion for the WritePrivateProfileString API call so you can update 
the vbaddin.ini file. Changing your Project properties so the 
Startup Object is Sub Main executes this procedure whenever 
the project starts. Use the App object's StartMode property to 
make sure your add-in runs as a standalone EXE and is not 
started by Visual Basic when establishing an add-in connection: 

Declare Function WritePrivateProfi1eString& Lib 
"Kernel32" Alias "Wri tePri vateProf i 1 eStri ngA" 
(ByVal AppNameS, ByVal KeyName$. 
ByVal keydefault$, ByVal FileName$) 

Sub Maint ) 

Dim txt$ 
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Figure 3. Class Description. The Visual Basic Add-In Manager 
displays the class Description property — but it is hard to find out 
where to change that description! You can only change it from the 
Object Browser by right<licking to display the class properties. 

If App.StartMode - vbext_psm_StandAl one Then 

txt - GetSetti ng(App. Title, "Settings", "Initials", "") 

txt - InputBoxC'Enter Initials", _ 
"Insertlnitials VB Add-In", txt) 

SaveSetting App. Title, "Settings". "Initials", txt 

WritePrivateProfileString "Add-Ins32", _ 

"Insertlni ti al s . Connect" , "0", "vbaddin.ini" 

MsgBox "Insert Initials Add-In Registered" 
End If 
End Sub 



There's one last trick you need to use with your Connect class. 
The Add-In Manager uses the Description property of the class to 
display in its window. You need to set the Description property to 
make your class appear in the proper place in the list. You can't 
set a class description from the Properties window — you need to 
view the class in the Object Browser, right-click to display the 
class properties, and enter the description (see Figure 3). 

Now compile your add-in, run the EXE, and enter your 
initials. Go back to the Visual Basic development environment, 
click on the Add-lns menu to display the Add-In Manager, and 
enable your add-in by checking it. When you click on the OK 
button, the Add-In Manager instantiates your add-in and calls 
the Connect method. You should see your new button appear on 
the Edit toolbar. Use the Toolbars menu item from the View 
menu if the Edit toolbar does not display. Open a code window 
and click on your button — you should see your initials and the 
current date and time. Cool! You've extended Visual Basic to add 
the desired functionality. Imagine what else you could do. SB 



Code Online 



You can find all the code published in this issue of Getting Started with 
Visual Basic on The Development Exchange (DevX) at http:// 
www.windx.com. For details, please see "Get Extra Code in DevX's 
Premier Club" in the Table of Contents. 

Track Code Changes 
Lo<ator+ Codes 

Listings for the entire issue, plus the source code for the app discussed 
in the column (free Registered Level): GS298 
Listings for this article only, plus the source code for the app discussed 
in the column (subscriber Premier Level): BAGS298 




User Tip 



VB3, VB4 16/32, VB5 

HERE'S REUSABLE CODE FOR 
BASIC TASKS 

/ am always looking for sample code so that I don 't have 
to reinvent the wheel. I have found the setupl.vbp file to 
be an excellent source of reusable code. The setupl.vbp 
file is part of the VB setup kit. The content varies, 
depending on what version ofVByou have, but in each 
there are numerous useful examples. For example, the 
VB5 file contains code to do these tasks: 

•Get the Windows directory 

*Get the Windows System directory 

'Determine if a file or directory exists 

'Determine if a user is running WinNT or Win95 

'Determine drive type 

'Check disk space 

'Create a new path 

'Read from an INI file 

•Parse date and time 

•Retrieve the short path name of a file containing 
long file names 

Plus, there is a whole module that works to log 
errors to an error file. 

You will find that the code is well commented and 
can easily be cut and pasted into your project. 
Die McCluskey 



VB3, VB4 16/32, VB5 

AN APPROXIMATE WORD 
COUNT FUNCTION 

This simple function quickly calculates the approximate 
word count in a variable. It is ideal for simple text 
editors and word processors. The procedure divides the 
length of the variable by 6 (the average word length) and 
returns the value in the WordCount variable: 

Function WordCount(ByVal sText As String) As Integer 

WordCount - Len(sText) \ 6 
End Function 

—Basil Hubbard 




SEND YOUR TIP 

If it's cool and we publish it, we'll pay you $25. If it includes 
code, please limit code length to 20 lines if possible. Be sure 
to include a clear explanation of what the technique does and 
why it is useful. Send it to vbpjedit@fawcette.com orFawcette 
Technical Publications, 209 Hamilton Ave., Palo Alto, CA, 
USA, 94301-2500. You can also fax it to 650-853-0230. Please 
include your mailing address. 
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Use the Registry to 
Save Information 



by Chris Barlow 



Incorporate the full power of the 
registry — a system database that 
allows multilevel keys and values. 



One thing you can do to make a program more user-friendly is to 
have it save certain information upon exiting. This way, settings 
such as the user name and window position will be used the next 
time the app is run. For example, if you increase the font size in the 
Visual Basic editor (from the Options menu item under the Tools 
menu), the larger font will kick in the next time you run VB. 

In 16-bit Windows, you save this information through INI files 
that contain lines of name-value pairs within bracketed sections 
(take a look at your WIN.ini for an example of this format). 32-bit 
Windows replaces this two-level structure with the registry — a 
system database that allows multilevel keys and values. For 
example, the Visual Basic font size information for the Visual 
Basic editor is saved in the registry under the five-level key, 
Software\Microsoft\VBA\Microsoft Visual Basic\FontHeight. 

Although Visual Basic includes four statements to read and 
write to the registry (GetSetting, SaveSetting, DeleteSetting, 
and GetAHSettings), these statements are limited to a two-level 
structure within a special registry key for backward compat- 
ibility: SoftwareWB and VBA Program Settings. When you use 
one of these statements, all your data is saved within this 
special key. Wouldn't it be nice to use the full power of the 
multilevel registry from your Visual Basic programs? 

At my company, we couldn't be limited to using the VB and VBA 
Program Settings key for the persistent information stored for users 
of our ObjectBank VB5 app. We needed to save multiple user profiles 
for database access. The multilevel key features of the registry let us 
save these profiles within a four-level key structure — the 
SunOpTech\ObjectBank\ObjectTeller\ProfileskeyAwrotea.registry 
API class that replaces Visual Basic's four intrinsic statements with 
more powerful counterparts. You can download this class from the 
free, Registered Level of The Development Exchange (see the Code 
Online box at the end of the column for details). In this column, I'll 
showyou how to replace the GetSetting, SaveSetting, and DeleteSetting 
statements with direct calls to the registry. 

Caution: This class module will write to your registry! If you 

Chris Bartow is president ofSunOp Tech, a developer of document- 
management, decision-support, and supply-chain application. 
Reach him at Chris@VBExpert.com or through his Web server at 
http://www. VBExpert.com. 



make an error in the code or delete the wrong registry value or key, 
you might damage your applications or operating system and need 
to restore them. Before working with this class module, be sure you 
have a current backup. 

Start a new Visual Basic project and insert a class module. Press 
F4 to display the Properties window, and change the class's name to 
CRegAPI. You need to declare the registry API functions that this 
class will call. Visual Basic includes a special API Viewer add-in that 
contains all the function declarations, constants, and types for the 
Win32 API. To load this add-in, select the Add-In Manager from the 
Add-Ins menu. You can use this add-in to locate the registry functions 
and paste them into your class module (see Figure 1). You'll need 
quite a few functions for all the features of the class. For the complete 
registry API function declarations, see Listing 1. 

As you design this class to replace Visual Basic's intrinsic 
functions, program each method's default behavior to mimic the 
function being replaced. This lets you easily substitute the meth- 
ods of this class for the intrinsic functions in your applications. 
Because the intrinsic functions save all information to the 
Software XVBand VBA Program Settings within theHkey_Current_User 
registry root, your class should default to these keys while provid- 
ing optional parameters to access other keys. Create two proper- 
ties, KeyPrefix and Root, and set them in the Classjnitialize event 
to these default values. This is also a good place to create enumer- 
ated constants for the seven registry roots supported by Windows 
95 and Windows NT: 

Public KeyPrefix As String 
Publ i c Root As Long 



API Viewer D:\Pmtjram FilesSDevSludid\VBVWinapi\Win32api.MDB 



File £dft 




RegCloseKey 
RegConnectRegistry 
RegCreateKsy 



RegDeJeteKey 
RegDeleteValue 
RegEnumKey 
P eijEnurnKeyEx 
Items; 








_J 



IDedare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" 
JfByVal hKey As Long, ByVal IpSubKey As String, ByVal Reserved As Long, ByVal 
JlpClass As String, ByVal dwOptions As Long, ByVai samDesired As Long, 
IpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, 
JlpdwDisposition As Long) As Long 



-J 







Figure 1 . Enjoy the View. The Visual Basic API Viewer add-in 
provides the easiest way to find a Win32 function declaration and 
paste it directly into your application. 
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Public Enum Regi stryRoots 

Hkey_Classes_Root - &H80000000 
Hkey_Current_User - &H80000001 
Hkey_Local_Machine - &H80000002 
Hkeyjsers - &H80000003 
Hkey_Performance_Data - &H80000004 
Hkey_Current_Config - &H80000005 
Hkey_Dyn_Data - &H80000006 

VB5 

Option Explicit 

Option Explicit 

Const REG_SZ As Long - 1 

Const REG_DW0RD As Long - 4 

Const ERR0R„N0NE - 

Const ERR0R3ADDB - 1 

Const ERROR_BADKEY - 2 

Const ERROR_CANT0PEN - 3 

Const ERROR_CANTREAD - 4 

Const ERROR_CANTWRITE - 5 

Const ERRORJUTOFMEMORY - 6 

Const ERR0R_I NVALI D_PARAMETER - 7 

Const ERROR„ACCESS_DENIED - 8 

Const ERR0R_I NVALI D_PARAMETERS = 87 

Const ERR0R„N0_M0RE_ITEMS - 259 

Const KEY_ALL_ACCESS - &H3F 

Const REG_OPTI0N_N0N_V0LATILE - 

Private Type FILETIME 

dwLowDateTime As Long 

dwHighDateTime As Long 
End Type 

Private Declare Function RegCloseKey Lib "advapi32.dll" 
(ByVal hKey As Long) As Long 

Private Declare Function RegCreateKeyEx Lib _ 
"advapi32.dll" Alias "RegCreateKeyExA" _ 
(ByVal hKey As Long, ByVal IpSubKey As String, _ 
ByVal Reserved As Long, ByVal lpClass As String, _ 
ByVal dwOptions As Long, ByVal samDesired As Long, _ 
ByVal 1 pSecuri tyAttri butes As Long, phkResult As _ 
Long, 1 pdwDi sposi ti on As Long) As Long 

Private Declare Function RegOpenKeyEx Lib _ 

"advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As 
Long, ByVal IpSubKey As String, ByVal ulOptions As 
Long, ByVal samDesired As Long, phkResult As 
Long) As Long 

Private Declare Function RegQuerylnf oKey Lib 

"advapi32.dll" Alias "RegQuerylnf oKeyA" (ByVal hKey 
As Long, ByVal lpClass As String, lpcbClass As Long, 
IpReserved As Long, IpeSubKeys As Long, _ 
1 pcbMaxSubKeyLen As Long, 1 pcbMaxCl assLen As Long, 
IpcValues As Long, 1 pcbMaxVal ueNameLen As Long, _ 
1 pcbMaxVal ueLen As Long, 1 pcbSecuri tyDescri ptor As 
Long, 1 pf tLastWri teTime As FILETIME) As Long 



Private Declare Function RegQueryVal ueExStri ng Lib 

"advapi32.dll" Alias "RegQueryVal ueExA" (ByVal hKey _ 
As Long, ByVal lpValueName As String, ByVal _ 
IpReserved As Long, lpType As Long, ByVal lpData As _ 
String. IpcbData As Long) As Long 

Private Declare Function RegQueryVal ueExLong Lib _ 
"advapi32.dll" Alias "RegQueryVal ueExA" (ByVal hKey 
As Long, ByVal lpValueName As String, ByVal _ 
IpReserved As Long, lpType As Long, lpData As _ 
Long, IpcbData As Long) As Long 

Private Declare Function RegQueryVal ueExNULL Lib 

"advapi32.dll" Alias "RegQueryVal ueExA" (ByVal hKey 
As Long, ByVal lpValueName As String, ByVal _ 
IpReserved As Long, lpType As Long, ByVal lpData 
As Long, IpcbData As Long) As Long 



End Enum 

Private Sub CI ass_Ini ti al i ze( ) 

KeyPrefix - "SoftwareWB and VBA Program SettingsV' 
Root - Hkey_Current_User 
End Sub 

Next, create the class's first three methods to mimic the 
intrinsic statements. For now, simply write the procedure 



Private Declare Function RegSetVal ueExStri ng Lib _ 

"advapi32.dll" Alias "RegSetVal ueExA" (ByVal hKey As _ 
Long, ByVal lpValueName As String, ByVal Reserved As _ 
Long, ByVal dwType As Long, ByVal lpValue As String, _ 
ByVal cbData As Long) As Long 

Private Declare Function RegSetVal ueExLong Lib _ 

"advapi32.dll" Alias "RegSetVal ueExA" (ByVal hKey As _ 
Long, ByVal lpValueName As String, ByVal Reserved As _ 
Long, ByVal dwType As Long, lpValue As Long, ByVal _ 
cbData As Long) As Long 

Private Declare Function RegEnumKeyEx Lib _ 

"advapi32.dll" Alias "RegEnumKeyExA" (ByVal hKey As _ 
Long, ByVal dwlndex As Long, ByVal IpName As String, _ 
IpcbName As Long, IpReserved As Long, ByVal lpClass _ 
As String, lpcbClass As Long, 1 pftLastWriteTime As _ 
FILETIME) As Long 

Private Declare Function RegEnumVal ueNull Lib _ 

"advapi32.dll" Alias "RegEnumVal ueA" (ByVal hKey As _ 
Long, ByVal dwlndex As Long, ByVal lpValueName As _ 
String. 1 pcbVal ueName As Long, IpReserved As Long, _ 
lpType As Long. lpData As Byte. IpcbData As Long) As _ 
Long 

Private Declare Function RegEnumVal ueStri ng Lib _ 

"advapi32.dll" Alias "RegEnumVal ueA" (ByVal hKey As _ 
Long, ByVal dwlndex As Long, ByVal lpValueName As _ 
String, 1 pcbVal ueName As Long, IpReserved As Long, _ 
lpType As Long, ByVal lpValue As String, IpcbData As _ 
Long) As Long 

Private Declare Function RegEnumVal ueLong Lib _ 

"advapi32.dll" Alias "RegEnumVal ueA" (ByVal hKey As _ 
Long. ByVal dwlndex As Long, ByVal lpValueName As _ 
String, 1 pcbVal ueName As Long, IpReserved As Long, _ 
lpType As Long, lpValue As Long, IpcbData As Long) _ 
As Long 

Private Declare Function RegDeleteKey Lib 

"advapi32.dll" Alias "RegDel eteKeyA" (ByVal hKey As _ 
Long, ByVal IpSubKey As String) As Long 

Private Declare Function RegDel eteVal ue Lib _ 

"advapi32.dll" Alias "RegDel eteVal ueA" (ByVal hKey 
As Long, ByVal lpValueName As String) As Long 



Public KeyPrefix As String 
Public Root As Long 
Public Enum Regi stryRoots 

Hkey_Cl asses_Root - &H80000000 

Hkey_Current_User - &H80000001 

Hkey_Local_Machine - &H80000002 

Hkey_Users - &H80000003 

Hkey_Performance_Data - &H80000004 

Hkey_Current_Config - &H80000005 

Hkey_Dyn_Data - &H80000006 
End Enum 

Private Sub CI ass_Ini ti al i ze( ) 

KeyPrefix - "SoftwareWB and VBA Program SettingsV 
Root - Hkey_Current_User 
End Sub 




Listing 1 . CRegAPI Class. Notice the declarations for the registry functions from the Win32 API. Because of Visual Basic's string 
handling, it is easier to define aliases for some of the functions so they can be called with the appropriate string or long value. 
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Continued from previous page. 

Public Function GetSetting(appname$, section$, key$, _ 

Optional default) 
Dim vValue As Variant 

vValue - QueryValue(MakeKey(appname, section), key) 
If vValue - "" Then vValue - default 
GetSetting - vValue 
End Function 

Public Sub SaveSetting(appname$, sections, key$, _ 

setting As Variant) 
Dim lValueType& 
If IsNumeri c( setti ng ) Then 

lValueType - REG_DW0RD 
Else 

lValueType - REG_SZ 
End If 

SetKeyValue MakeKey(appname, section), key, setting, _ 

1 Val ueType 
End Sub 

Public Sub DeleteSetting(appname$, section!. Optional _ 

key$) 
Dim IRetVaU 
Dim hKey& 

If Len(key) - Then 

IRetVal - RegOpenKeyEx(Root, MakeKey(appname, ""), _ 
0, KEY_ALL_ACCESS , hKey) 

RegDeleteKey hKey, section 
Else 

IRetVal - RegOpenKeyEx( Root, Ma keKey ( appname , 

section), 0, KEY_ALL_ACCESS . hKey) 
RegDel eteVal ue hKey. key 
End If 

RegCloseKey (hKey) 
End Sub 

Public Function QueryVal ue(sKeyName$ , sValueName!) As _ 

Vari ant 
Dim IRetVaU 
Dim hKey& 

Dim vValue As Variant 

IRetVal - RegOpenKeyEx(Root, sKeyName, 0. 

KEY_ALL_ACCESS. hKey) 
IRetVal - QueryVal ueEx( hKey , sValueName, vValue) 
RegCloseKey (hKey) 
QueryValue - vValue 
End Function 

Public Sub SetKeyVal ue(sKeyName$ , sValueName$. 

vVal ueSetti ng As Variant, lValueType&) 
Dim IRetVal & 
Dim hKey& 

IRetVal - RegCreateKeyExtRoot, sKeyName, 0&. 

vbNull String, 0&. REG_0PTI0N_N0N_V0LATILE. _ 

KEY_ALL_ACCESS , hKey, IRetVal) 
IRetVal - SetValueExthKey, sValueName, lValueType, 

vVal ueSetting ) 
RegCloseKey (hKey) 
End Sub 

Public Sub CreateKey ( sKeyName! ) 
Dim hKey& 
Dim IRetVaU 

IRetVal - RegCreateKeyExtRoot, sKeyName. 0&, 
vbNullString, 0&. REG_0PTION_N0N_VOLATI LE, 
KEY_ALL_ACCESS . hKey, IRetVal) 

RegCloseKey (hKey) 

End Sub 



Private Function OpenKeyf appname$ . 
Dim sKey$ 
Dim hKey& 
Dim IRetVaU 

sKey - MakeKeytappname, section) 
If Len(sKey) - Then 

OpenKey - Root 
Else 



section!) As Long 



IRetVal - RegOpenKeyEx(Root, sKey, 0. _ 

KEY_ALL_ACCESS , hKey) 
If IRetVal - ERR0R_N0NE Then OpenKey - hKey 
End If 

End Function 

Private Function MakeKey ( appname$ , section!) As _ 
String 

If Len(section) - And Len(KeyPrefix) - Then 

MakeKey - appname 
Elself Len(section) - Then 

MakeKey - KeyPrefix & appname 
Elself Len(KeyPrefix) - Then 

MakeKey - appname & "\" & section 
Else 

MakeKey - KeyPrefix & appname & "\" & section 
End If 

End Function 

Public Function SetVal ueEx( ByVal hKey As Long, _ 
sValueName As String, lType As Long, vValue As _ 
Variant) As Long 
Dim lvalue As Long 
Dim sValue As String 
Select Case lType 
Case REG_SZ 

sValue - vValue & Chr$(0) 
SetVal ueEx - RegSetVal ueExString(hKey , _ 
sValueName, 0&. lType, sValue, Len(sValue)) 
Case REG_DW0RD 
1 Val ue - vVal ue 

SetValueEx - RegSetValueExLongthKey. sValueName, 
0&, lType. lvalue, 4) 
End Select 
End Function 

Public Function QueryVal ueEx(ByVal lhKey As Long. ByVal 
szValueName As String, vValue As Variant) As Long 
Dim cch As Long 
Dim 1 rc As Long 
Dim lType As Long 
Dim lvalue As Long 
Dim sValue As String 

On Error GoTo QueryVal ueExError 

' Determine the size and type of data to be read 
lrc - RegQueryVal ueExNULLO hKey, szValueName, 0&, 

Hype, 0&, cch) 
If lrc <> ERR0R_N0NE Then Error 5 

Select Case lType 
' For strings 
Case REG_SZ: 

sValue - String(cch, 0) 

lrc - RegQueryValueExStringdhKey, szValueName, 

0&, lType. sValue, cch) 
If lrc - ERR0R_N0NE Then 

vValue - Left$(sValue. cch) 
Else 

vValue - Empty 
End If 
' For DWORDS 
Case REG_DW0RD: 

lrc - RegQueryValueExLongdhKey. szValueName, _ 

OS, lType, lvalue, cch) 
If lrc - ERR0R_N0NE Then vValue - lValue 
Case Else 

'all other data types not supported 
lrc - -1 
End Select 

QueryVal ueExExi t : 

QueryVal ueEx - 1 rc 

Exit Function 
QueryVal ueExError : 

Resume QueryVal ueExExi t 
End Function 
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definitions— you can fill in the code for these methods later. 
Notice that GetSetting is a function because it returns the value 
from the registry, but SaveSetting and DeleteSetting are subs. The 
GetSetting method has an optional parameter for the default 
value that will be returned if the key is not found in the registry: 

Public Function GetSetti ngt appnameS , _ 

section$, key$, Optional default) 
End Function 

Public Sub SaveSetting(appname$, _ 

section$, key$, setting As Variant) 
End Sub 

Public Sub Del eteSetti ng(appname$ , _ 

section$, Optional key$) 
End Sub 

FOR THE SAKE OF ARGUMENT 

Because the intrinsic functions are designed to work with a two-level 
key structure, they use two arguments — appname and section. In 
the registry API calls, these arguments are combined with KeyPrefix 
into a single backslash-delimited key. Create a private MakeKey 
function to build this single key from the method's arguments: 

Private Function MakeKey(appname$ , _ 

sections) As String 
If Len(section) - And Len(KeyPrefix) - Then 

MakeKey - appname 
Elself Len(section) - Then 

MakeKey - KeyPrefix & appname 
Elself Len(KeyPrefix) - Then 

MakeKey - appname & "V & section 
Else 

MakeKey - KeyPrefix & appname & "\" & section 
End If 

End Function 

Given this single backslash-delimited key, you can read a value 
from the registry by opening that key within the proper root using 
the RegOpenKeyEx function. This function places the value of the 
open key in the hKey variable, which you can use in the 
QueryValueEx API function to read the actual value. Don't forget to 
close the registry key with RegCloseKey when you're done: 

Public Function QueryVal ue(sKeyNameS , sValueName$) As Variant 
Dim IRetVaU 
Dim hKey& 

Dim vValue As Variant 

IRetVal - RegOpenKeyEx(Root, _ 

sKeyName. 0, KEY„ALL_ACCESS , hKey) 
IRetVal - QueryVal ueEx( hKey , sValueName, vValue) 
RegCloseKey (hKey) 
QueryVal ue - vVal ue 
End Function 

Making the QueryValue function a public method of the class 
allows a more experienced programmer to call it directly when 
reading values from the registry, rather than forcing the program- 
mer to use the GetSetting method. With these two functions , you can 
fill in the code for the GetSetting method. Notice how the default 
value is returned if QueryValue returns an empty string: 

Public Function GetSetti ng(appname$ , 
sections, key$. Optional default) 
Dim vValue As Variant 

vValue - QueryValue(MakeKey(appname, section), key) 
If vValue - "" Then vValue - default 
GetSetting - vValue 



End Function 

Your first method is done! Saving settings is nearly as easy. 
Because the registry supports several types of values, you must 
specify the value type you're saving. I'll show you how to write 
this class to support either a string or a long value. Call the 
SetKeyValue function to save the value within the specified key. 
The SetKeyValue function calls the RegCreateKeyEx API func- 
tion rather than RegOpenKeyEx, so the key will be created if it 
is not present in the registry: 

Public Sub SaveSetting(appname$, „ 

sections, key$, setting As Variant) 
Dim lValueTyped 
If IsNumeric(setting) Then 

IValueType - REGJWORD 
Else 

IValueType - REG_SZ 
End If 

SetKeyValue MakeKeyt appname , _ 

section), key, setting, IValueType 
End Sub 

The DeleteSetting method has two slightly different actions. 
If a value is specified, you must delete only that registry value. 
But if no value is specified, you must delete the entire key. Delete 
from the registry by opening the key with RegOpenKeyEx and 
calling either RegDeleteKey or RegDeleteValue. You still need to 
call RegCloseKey to free up the memory used by the open key: 

Public Sub DeleteSetting(appname$, _ 

sections. Optional keyS) 
Dim IRetVaU 
Dim hKey& 

If Len(key) - Then 

IRetVal - RegOpenKeyEx(Root, MakeKey ( appname , ""), 0, _ 
KEY_ALL_ACCESS , hKey) 

RegDeleteKey hKey, section 
Else 

IRetVal - RegOpenKeyEx(Root, MakeKeytappname, section), 0, _ 

KEY_ALL_ACCESS, hKey) 
RegDeleteValue hKey, key 
End If 

RegCloseKey (hKey) 
End Sub 

Your class is complete. As with all classes, you should 
prepare a simple test harness to debug your class. You can 
download the instructions to create a test harness from the 
free, Registered Level of The Development Exchange (see the 
Code Online box for details). ■ 



Code Online 



You can find all the code published in this issue of Getting Started with 
Visual Basic on The Development Exchange (DevX) at http:// 
vvww.windx.com. For details, please see "Get Extra Code in DevX's 
Premier Club" in the Table of Contents. 

Use the Registry to Save Information 
Locator+ (.odes 

Listings for the entire issue, plus instructions to create a test harness, as well 
as the complete registry API class, including GetAllSettings, which uses 
multiple calls to enumerate the registry values (free Registered Level): GS298 
Listings for this article only, plus the files described above (subscriber 
Premier Level): TRGS298 
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H 



ere is a list of online 
resources, books, video- 
tapes, and CDs; training 

companies and conferences; and user 
groups to help you get started with Visual 
Basic. You can find more information on 
these and others in the Product Guide 
and Community sections of The Develop- 
ment Exchange at http://www.windx.com. 
To purchase books, you can either con- 
tact the publishers directly or buy them 
through Fawcette Technical Publications. 
Call 650-833-7100 or 800-848-5523, or or- 
der them through the DevX Marketplace 
on The Development Exchange. 

While FTP's intent is to provide the 
most accurate and comprehensive infor- 
mation possible, the manufacturers are 
ultimately responsible for the accuracy of 
data and product claims. We encourage 
you to contact them for further informa- 
tion. Please send any additions or correc- 
tions to this list to Listings Editor, Fawcette 
Technical Publications, 209 Hamilton 
Avenue, Palo Alto, CA 94301-2500; fax 
them to 650-853-0230; or send e-mail to 
epeterson@fawcette.com. 




Online Resources 



Listed here are just a few of the Web sites de- 
signed for the VB programmer. These Web sites 
either focus on or have special areas for the 
beginning programmer. We offer a brie f descrip- 
tion and address for each site. If you have visited 
a Web site you found useful for a beginning VB 
programmer, please let us know about it. Send the 
URLandyourcommentstovbpjediMfawcette.com. 

CARL AND GARY'S HOME PAGE 

http://www.apexsc.com/vb/ 
Cart and Gary's, the first VB Internet site, has everything from 
a beginner's page to The Jobs Page. Check out the archive 
of more than 30,000 messages of VB posts from USENET. 
The search engine makes it easy to find topics of interest 

DEBORAH KURATA'S TIPS AND TRICKS 

http://www.insteptech.com/VBTi psFr.htm 
Deborah Kurata, the author of Doing Objects in Microsoft 
Visual Basic5anA a CB/Vcontributor, provides an extensive 
libraryoftips and tricks. Topicssuch as "Workingwith Forms 
and Controls" and "Working with Objects and Classes" are 
examined in depth in a question-and-answer format 

THE DEVELOPMENT EXCHANGE 

http:// www.windx.com 

Through The Development Exchange (DevX) Web site, 
you can subscribe to Visual Basic Programmer's Journal, 



Java Pro, Microsoft Interactive Developer, Visual Pro- 
gramming ++, or the VBCD; register for various confer- 
ences, including VBITS; order books; and browse re- 
sources for Windows developers, including listings of 
add-on tools for Windows developers and links to other 
software-industry Web sites. All the code listings and 
associated files essential to the articles in the current 
issue of VBPJ are available for free to Registered mem- 
bers of DevX, in one ZIP file. DevX Premier Club members 
($20 for six months) can get each article's listings in a 
separate file, as well as additional code and utilities for 
selected articles, plus archives of all code ever published 
in Getting Started with Visual Basic, VBPJ, Java Pro, and 
Microsoft Interactive Developer magazines. 

INQUIRY.COM 

http://www.inquiry.com 
The Ask the Pros resources of inquiry.com were recently 
acquired by Fawcette Technical Publications. Ask the VB 
Pro provides a great way to get quick answers to your VB 
programming dilemmas. You will also find a catalog of 
questions already answered by VB pros themselves. 

JOSE'S WORLD OF VISUAL BASIC 

http://www.citilink.com/~jgarrick/vbasic/ 
To get started, look into the Beginner's Corner on this 
page. You'll find extensive resources, articles on pro- 
gramming, and a Top Ten list of do's and don'ts. Other 
topics include industry news, opinions, and downloads. 

MICROSOFT VISUAL BASIC 

http://www.microsoft.com/vbasic/ 
The Microsoft Web site features numerous resources for 
Visual Basic users. Check out the New User page, which 
includes tips, free downloads, and tutorials. You'll also 
find a complete searchable Knowledge Base (http:// 
www.microsoft.com/kb/), which contains articles on vari- 
ous programming topics for Microsoft development envi- 
ronments. 

SOFTCIRCUITS PROGRAMMING 

http:/ /www.softcircuits.com 
SoftCircuits is a software development company that 
provides a wide variety of free software on its site. Most 
of the downloads have been updated for VB5. 

SOUTHERN CROSS 

VISUAL BASIC CODE & LINKS 

http://www.geocities.com/CapeCanaveral/ 
6740/ 

Check out this site's extensive source code library. The 
site provides more than 50 VB tips, plenty of links to other 
VB sites, and a showcase of free ActiveX downloads. 

THE BEST WAY TO LEARN VISUAL BASIC 

http://www.thebestweb.com/vb/ 
question.htm 

The Best Way to Learn Visual Basic provides a wide 
variety of resources, as well as advice for how to get your 
questions about VB answered. 

VB4UANDME 

http://users.aol.com/vb4uandme/index.hlm 
This site features a special page just for beginners, which 
contains focused tips and tutorials. It also features a Q&A 
message board and source code archives. 

VB BOOTCAMP 

http://www.VB-Bootcamp.com 

Download code and utilities from the Web site of New 



Technology Solutions, the company that conducts the VB 
Bootcamp seminars. 

VISUAL BASIC EXPLORER 

http:/ /www.vbexplorer.com 
Described as a place for Visual Basic newbies, this site is 
dedicated to providing resources to make you a better VB 
programmer. It features a tutorial section, as well as 
plenty of source code, downloads, and valuable links to 
othersites. VB Explorer also sponsors a Beginner Friendly 
Site Award and highlights several newbie-friendly sites. 

VISUAL BASIC ISLAND 

http://www.geocities.com/SiliconValley/ 
Park/8710/ 

Visual Basic Island provides an extensive library of source 
code to download, a unique section of tips for adding graph- 
ics to your applications, a Q&A section, and downloads. It 
also includes general third-party product information. 

VB TIPS & TRICKS 

http://www.apexsc.com/vb/davem/vbtt.html 
VB Tips & Tricks provides downloadable files of numer- 
ous tips and tricks, brimming with useful information. 
However, the page lacks a searchable collection of Web 
pages containing all the tips. Note the Tip of the Month 
competition, featuring VB add-on tools as prizes. 

VISUAL BASIC FAQ 

http://home.sol.no/ -jansh/ vb/ default.htm 
This is an updated version of an old standard that an- 
swered frequently asked questions regarding Visual Ba- 
sic. The new site features a tip of the week and a detailed 
Table of Contents to find your FAQs quickly. 




Books 



There are hundreds of books on the market for the 
beginning VB programmer. We offer a brief descrip- 
tion and contact information for each. If you 've read 
a book you found useful or would like to see a book 
reviewed, please tell us about it. Send the book title 
and publisher to vbpjedit@fawcette.com. 

BEGINNING VISUAL BASIC 5 

Beginning Visual Basic 5 by Peter Wright is written for 
anyone interested in learning to program with VB. It 
assumes no prior programming experience and uses a 
tutorial style to help readers develop their own code. It 
includes coverage of databases and ActiveX, and it fea- 
tures a Q&A section at the end of each chapter. $30. 
Wrox Press Inc. Phone: 773-465-3559; 800- 
814-4527. Fax: 773-465-4063. E-mail: 
sales@wrox.com. Web: http:// 
www.wrox.com. 

DAN APPLEMAN'S VISUAL BASIC 5.0 
PROGRAMMER'S GUIDE TO THE WIN32 API 

Dan Appleman's book includes sample programs and 
extensive information on porting from 16-bit applica- 
tions. Itteaches how to write code thatwill run on both 16- 
and 32-bit systems. Full text is available on a searchable 
CD-ROM. $59.99. 

Ziff-Davis Press. Phone: 510-601-2000; 800- 
688-0448. Fax: 800-882-8583. E-mail: 
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Orders@mcp.com. Web: http:// 
www.mcp.com. 

DEVELOPING ACTIVEX CONTROLS WITH 
VISUAL BASIC 5 

Al Williams' book provides an introduction to ActiveX 
technology, as well as step-by-step instructions for creat- 
ing and customizing ActiveX controls. $39.99. 
The Coriolis Group. Phone: 602-483-01 92. 
Fax: 602-483-0193. Web: http:// 
www.coriolis.com. 

MICROSOFT VISUAL BASIC 5 STEP BY STEP 

This book by Michael Halvorson provides VB5 training to 
help you easily create custom programs for Microsoft 
Windows 95. It helps you get started with VB; work with 
controls, menus, and dialog boxes; and use modules and 
procedures. It also provides a list of the Top Ten Visual 
Basic Web sites. $34.99. 

Microsoft Press. Phone: 800-MSPRESS. E- 
mail: GO MSP. Web: http:// 
www.microsoft.com/mspress. 

TEACH YOURSELF VISUAL BASIC 5 IN 21 
DAYS 

This book by Nathan and Ori Gurewich teaches basic 
programming aspects of Visual Basic. Tutorials showyou 
how to use objects, controls, and components. The book 
contains day-to-day lessons, quizzes, and practical appli- 
cations $39 99 

Que. Phone: 317-581-3500; 800-428-5331 . 
Fax: 317-581-3550. Web: http:// 
www.mcp.com/ que/. 

TEACH YOURSELF VISUAL BASIC 5 IN 24 
HOURS 

Greg M. Perry's book is designed to teach you the basics 
of programming in Visual Basic 5 with 24 lessons of one 
hour or less. Topics include controls and properties; list 
boxes and data lists,; printing with Visual Basic; and 
graphic image controls. The CD-ROM includes the VB5 
Control Creation Edition. $19.99 
Sams Publishing. Phone: 800-428-5331. Fax: 
317-581-3550. Web: http://www.mcp.com. 

THE MICROSOFT VISUAL BASIC WORKSHOP 

This book by John Clark Craig provides more than 50 
ready-to-run programs that you can incorporate directly 
into programming projects. The book demonstrates ev- 
erything from basic techniques to the creation of custom 
controls and dynamic link libraries. $39.95. 
Microsoft Press. Phone: 800-MSPRESS. E- 
mail: GO MSP. Web: http:// 
www.microsoft.com/ mspress. 

VISUAL BASIC 5 FUNDAMENTALS 
UNLEASHED 

Visual Basic 5 Fundamentals Unleashed, by Michael 
Amundsen, provides a foundation for developing applica- 
tions with VB5. It takes a look at VB5 's new features, and 
it talks about how to design forms, use property pages, 
handle errors, and use message boxes. The CD-ROM 
includes VB5 CCE and third-party products. $29.99. 
Sams Publishing. Phone: 800-428-5331 . Fax: 
317-581-3550. Web: http://www.mcp.com/. 

VISUAL BASIC 5: NO EXPERIENCE 
REQUIRED 

Visual Basic 5: No Experience Required, by Steve Brown, 
is a skill-building guide to learning VB. It provides an 
overview of the language and discussions of ActiveX 
controls. It gives details about the more important fea- 
tures, assuming technical but not VB knowledge. $29.99. 



Sybex Inc. Phone: 510-523-8233; 800-227- 
2346. Fax: 510-523-2373. E-mail: GO SYBEX. 

VISUAL BASIC 5 FROM THE GROUND UP 

Cay S. Horstmann's Visual Basic 5 from the Ground Up 
provides modular step-by-step instructions that take you 
from the basics of Basic to programming complete applica- 
tions and writing components that plug in and extend pro- 
grams written by others. Designed for the first-time program- 
mer and those looking to upgrade their VB skills. $34.99. 
Osborne/McGraw-Hill. Phone: 510-549- 
6600; 800-227-0900. Fax: 510-549-6603. 
E-mail: aellings@mcgraw-hill.com. Web: 
http://www.osborne.com. 

VISUAL BASIC 5 INTERACTIVE COURSE 

This interactive course covers object-oriented program- 
ming in Visual Basic 5, including forms, controls, data 
types, classes, graphics, data controls, and coverage of 
VB5's integration of ActiveX. The CD contains all ex- 
amples from the book, plus full source code. $49.99. 
Waite Group Press. Phone: 415-924-2575; 
800-428-5331 . Fax: 41 5-924-2576. E-mail: 
lmann@waite.mcp.com. Web: http:// 
www.waite.com/waite. 

VISUAL BASIC PROGRAMMER'S JOURNAL 

VBPJ is the leading Windows programming magazine in 
the world. It includes several columns focused toward the 
beginning VB programmer, as well as in-depth how-to 
articles, product reviews, tips and tricks, and downloadable 
code each month. $27.95 per year. $65 for three years. 
Monthly. 

Fawcette Technical Publications. Phone: 650- 
833-7100; 800-848-5523. Fax: 650-853- 
0230. Web: http://www.windx.com. 



Videotapes & CDs 



Interactive CDs and videotapes let you learn by 
doing, while offering advice along the way. These 
CDs and videotapes focus on the beginning pro- 
grammer, and some might offer additional train- 
ing materials. We've included a brief description 
and contact information for each. If you 've used 
training materials you've found useful, tell us 
about them. Send the resource title and manufac- 
turer to vbpjedit@fawcette.com. 

MASTERING VISUAL BASIC 5 FUNDAMENTALS 

This interactive CD-ROM course is designed to take your 
programming skills and apply them to VB5. Developers 
will learn rapid application development (RAD) and how 
to develop custom solutions using VB. The CD-ROM also 
teaches developers how to access and modify databases 
and how to create effective user interfaces. $99.95. 
Microsoft Corp. Phone: 800-621-7930. Fax: 
206-936-7329. E-mail: GO MSP. Web: 
http://www.microsoft.com. 

VBCD 

This monthly CD-ROM contains electronic versions of 
every VBPJ and BasicPro back issue, indexed for easy 
retrieval; the Catalog on Disk database; a comprehensive 
directory of third-party add-on products for the entire 
family of Microsoft development tools, including Visual 
Basic, Visual C++, Access, BackOffice, Visual FoxPro, 




and ActiveX controls; and code, sample applications, and 
shareware. $99.95 for a one-year subscription. 
Fawcette Technical Publications. Phone: 650- 
833-7100; 800-848-5523. Fax: 650-853- 
0230. Web: http://www.windx.com. 

VB FUNDAMENTALS VIDEOTAPES 

Learn VB from the ground up from VB Bootcamp instruc- 
tors. This seven-tape, seven-hour series teaches you both 
elementary and sophisticated techniques. It includes a 
1000-page book, 30 days of faxed Q&A support, and a disk 
that contains exercises. $89.95 per tape. 
New Technology Solutions Inc. Phone: 203- 
239-6874; 800-362-0060. Fax: 203-239- 
7997. Web: http://www.vb-bootcamp.com. 
E-mail: newtech@world.std.com. BBS: 203- 
239-7230. 

VISUAL BASIC VIDEO TRAINING 

Professional trainers integrate audio, visual, and hands- 
on training in one learning experience. The Visual Basic 
course includes videos, workbooks, and data disks. Each 
video averages two hours of instruction. $89.95 pervideo. 
KeyStone Learning Systems Corp. Phone: 
801-375-8680; 800-748-4838. Fax: 801- 
373-6872. Web: http:// 
www.keylearnsys.com. E-mail: 
keystone® key iea rn sy s . com . 

VISUAL BASIC VIDEO TRAINING SYSTEM 

Softech's video training system consists of eight video- 
cassettes and a resource disk. The course explains the 
software in detail, from basic features to advanced pro- 
gramming. The course lasts up to 12 hours and is avail- 
able in PAL or NTSC television standards. $599. 
Softech International Ltd., United Kingdom. 
Phone: 44-0268-566535. Fax: 44-0268- 
565009. Web: http://www.softech.com. 
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Training Companies 



Listed here are only a few of the courses available 
for the beginning VB programmer. We offer a brief 
description and contact information for each com- 
pany. Some companies also offer more advanced 
training in VB and other programming topics. If 
you've participated in training or conferences, 
we'd like to hear about it. Send e-mail to 
vbpjedit@fawcette.com and give us a brief review. 

APPLICATION DEVELOPERS TRAINING 
COMPANY (APPDEV) 

AppDev has a two-day course that provides an introduc- 
tion to Visual Basic as well as intermediate and advanced 
courses. Weekly sessions are held nationwide, and onsite 
training is available. $69541495. 
Minneapolis, Minnesota. Phone: 612-943- 
1363; 800-578-2062. Fax: 612-942-8452. 
E-mail: info@appdev.com. Web: http:// 
www.appdev.com. 

BATKY-HOWELL 

"Visual Basic 5.0 Programming" teaches general program- 
ming concepts of Visual Basic 5.0 and the Visual Basic 
environment. Topics include controls and properties; man- 
aging projects; creating the user interface; debugging; 
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working with forms and custom controls; built-in objects 
and collections; working with strings, dates, and advanced 
language features; and dialogs and file processing. The 
five-day course requires programming experience in an- 
other language. $1625. Call for availability. 
Englewood, Colorado. Phone: 303-689- 
9090; 800-868-2202. Fax: 303-689-9904. 
Web: http://www.batky-howell.com. 

TRAINING ASSOCIATES 

"Introduction to Programming with Visual Basic 5" 
discusses VB5 features that programmers can use to 
create Windows applications with advanced capabili- 
ties. Students will learn programming fundamentals 
as well as create effective graphical user interfaces 
(GUIs). They will also learn how to manipulate data 
through text files and databases. The course provides 
12 self-paced lessons that "step" you through pro- 
gramming in VB5. It is designed for those with little or 
no programming experience. All courses are held 
online, with scheduled live chats and instruction. Call 
for pricing and availability. 
Mesa, Arizona. Phone: 602-649-271 1 . Web: 
http://www.trainingassociates.com. E-mail: 
dave@trainingassociates.com. 

DB BASICS INC. 

"Visual Basic 5.0 Fundamentals" is a two-day course 
designed to introduce students to the Visual Basic envi- 
ronment. Students are given step-by-step instructions on 
how to paint forms, add code, and create executables. 
Students are introduced to the Basic language and shown 
how to use the debugger. It requires some previous 
knowledge of programming experience with Windows. 
Call for pricing and availability. 
Morrisville, North Carolina. Phone: 919-380- 
7252; 800-646-6490. Fax: 919-319-9492. 
Web: http://www.dbbasics.com. 

DEVELOPMENTS? 

"Essential Visual Basic" is a five-day course that teaches 
you how to design, code, test, and distribute VB applica- 
tions. The course aims to give you a working knowledge 
of the most important aspects of large-scale project devel- 
opment, such as error trapping, database access, report 
generation, and effective strategies for managing large- 
scale software projects. $1995. Call for availability. 
Torrance, California. Phone: 310-214-7800. 
Fax: 310-214-7803. Web: http:// 
www.develop.com. 

FAWCETTE TECHNICAL PUBLICATIONS 

FTP has a number of conferences for the Visual Basic 
developer. Visual Basic Insiders' Technical Summit 
(VBITS) '98 is for the hard-core elite of the Windows 
community, all in one place sharing information and 
learning new technologies that shape the industry. FTP 
also sponsors VB Jump Start, a two-day seminar on 
modern object-oriented programming in Visual Basic 
5.0. Call or visit the Web site for more information and an 
advance registration kit. 

Palo Alto, California. Phone: 650-833-7100; 
800-848-5523. Fax: 650 -853-0230. Web: 
http://www.windx.com. 

INSTEP TECHNOLOGIES 

InStep Technologies provides a variety of courses on 
Visual Basic and object-oriented design. Send e-mail for 
prices and schedules. 

Pleasanton, California. Phone: 510-426- 
941 1 . Web: http://www.insteptech.com. 
E-mail: deborahk@insteptech.com. 



LEARNING TREE INTERNATIONAL 

Learning Tree offers a variety of training courses for 
Visual Basic developers. Classes include "Hands-On Vi- 
sual Basic for Enterprise Applications" and "Hands-On 
Visual Basic: Business Solutions in Windows." Call or 
check the Web site for more information. 
Reston, Virginia. Phone: 800-843-8733; 703- 
709-9019. Fax: 800-709-6405. Web: http:// 
www.learningtree.com. E-mail: 
uscourses@learningtree.com. 

MICRO ENDEAVORS INC. 

"Fundamentals of Microsoft Visual Basic" is intended for 
novice programmers and programmers migrating to Vi- 
sual Basic from procedural languages such as Basic, C, 
COBOL, and FORTRAN. The course teaches how to create 
an application in VB, work with forms, debug, and work 
with controls. Call for pricing and availability. 
Upper Darby, Pennsylvania. Phone: 610-499- 
4680; 800-331-9434. Fax: 610-449-4757. 
Web: http://www.microendeavors.com. 

NEW TECHNOLOGY SOLUTIONS INC. 

"VB Bootcamp" is a four-day course designed to take you 
from the fundamentals of VB to advanced topics. On-site 
training is also available. 

North Haven, Connecticut. Phone: 203-239- 
6874; 800-362-0060. Fax: 203-239-7997. 
Web: http://www.vb-bootcamp.com. 
E-mail: newtech@world.std.com. BBS: 203- 
239-7230. 

QUICKSTART TECHNOLOGIES 

"Mastering Microsoft Visual Basic 5.0 Fundamentals" 
provides necessary intermediate-level skills to develop- 
ers new to Microsoft Windows-based programming. At 
course completion, students will be able to write solid 
event-driven code, create standalone, multiform applica- 
tions, create an effective interface, and access and modify 
a database. Call for pricing and availability. 
Newport Beach, California. Phone: 714-476- 
7575; 800-326-1044. Fax: 714-476-7576. 
Web: http://www.quickstart.com. 

TRANSCENDER CORP. 

VB-Cert 5.0 is a software program that prepares Microsoft 
Certified Solution Developer (MCSD) candidates for 
Microsoft's Visual Basic 5.0 certification exam. The exam 
simulation program contains multiple, timed exams with 
60 questions each. Detailed explanations behind every 
question help focus studies. Other exam simulations are 
offered for Access, SQL, andWindows Architecture. $149. 
Available now. 

Nashvillejennessee. Phone: 615-726-8779. 
Fax: 615-726-8884. E-mail: 
mscert@transcender.com. Web: http:// 
www.transcender.com. 

WAVE TECHNOLOGIES INTERNATIONAL INC. 

Wave offers 10 VB courses ranging from fundamentals to 
advanced topics. Also, the VB5 Career Pack combines 
self-study and online training in one program. The pack 
includes manuals, hands-on exercises, simulations, digi- 
tal video, and interactive scenarios and questions. 
St. Louis, Missouri. Phone: 800-828-2050; 
314-995-5767. Fax: 314-995-3894. 
Web: http://www.wavetech.com. E-mail: 
info@wavetech .com . 




User Groups 



User groups give you the opportunity to meet with 
other Visual Basic programmers in your geo- 
graphical area to talk about development issues. 
We regularly update this information on The De- 
velopment Exchange at http://www.windx.com. 
From the home page, select User Groups under the 
Community heading. Users outside the United 
States can search by country; users within the 
United States can enter a zip code to find the 
nearest user group. If you start a new group, or if 
you notice an error in your group 's listing, please 
send additions or corrections to User Group Edi- 
tor, Fawcette Technical Publications, 209 
Hamilton Avenue, Palo Alto, CA 94301-2500; fax 
them to 650-853-0230; or send Internet e-mail to 
epeterson@fawcette.com. (SIG stands for Special 
Interest Group.) 

AUSTRALIA 

Australian Visual Basic User Group 

P.O. Box 1 363, Doncaster East Delivery 
Centre, Victoria, Australia 3109. Phone: 
613-9623-3262. E-mail: ansett_oa@msn.com. 
Ansett Australia — VB 
Information Technology, 3/489 Swanston 
Street, Melbourne, Victoria, 3000. Phone: 
613-9877-5969. Contact: Mark Henry. 
Australian Visual Basic User Group 
P.O. Box 3328, Rundle Mall, Adelaide SA, 
5000. Phone: 618-8212-3688. Fax: 618- 
9231-8834. E-mail: avbugsa@regional.net.au. 
VB User Group 

Level 5, 521 Toorak Rd., Toorak, 3142. Phone: 
613-827-0144. Contact: Stephan Greiger. 

CANADA 

Big Blue and Cousins — VB 

Victoria, British Columbia. Phone: 604-382- 
3934. 

Calgary Visual Basic User Group 

3 1 00- 1 50 6th Ave SW, Calgary, Alberta, 
T2P 4M5. Phone: 403-234-2929. Contact: 
Jean Paradis. 

Edmonton VB/ Access Developers SIG 

Nisku, Alberta. Phone: 403-955-3065. 
London Life Visual Basic User Group 

255 Dufferin Avenue, London, Ontario, N6A 
4K1 . Phone: 51 9-432-2000 x4429. Fax: 
519-432-3862. Contact: Stephen Baldock. 
Toronto VB User Group 
3555 Don Mill Road, Suite 6-1705, North 
York, Ontario, M2HE 3N3. Phone: 416-499- 
1978. Fax: 416-499-1681 . E-mail: mrsheep® 
visualbyte.com. Contact: Dwayne Lamb. 
Toronto Windows User Group 
6327 Atherley Crescent, Mississaugua, 
Ontario, L5N 2J1. Phone: 416-826-0320. 
Contact: Don Roy. 

Visual Basic Users of Nova Scotia 

Enfield, Nova Scotia. Phone: 902-883-1010. 
Fax: 902-883-8586. 
Winnipeg PC User Group 

61 Amundsen Bay, Winnepeg, R3K 0V1 . 
Phone: 204-831-7163. Contact: Daryl Draeger. 
Web: http://www.wpcusrgep.org/ 
~ddraeger/vbsig.html. 
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GERMANY 

IIT Fachbereieh Visual Basic 

Gouleystrasse 85, 52146 Wurselen. Phone: 
49-2405-855-31 . Fax: 49-2405-855-41 . E- 
mail: iit-institut@msn.com; 100042,445. 

JAPAN 

Visual Basic User Group Japan 

Takadanobaba 1 1 03 Nagtani Mansion 
Shinjuku, Tokyo, Japan. Web: http:// 
www.vbug.or.jp. Phone: 80-3-3203-7744. 
Fax: 81-3-3203-7704. E-mail: 
yito@zest.co.jp. Contact: Yukiko Ito. 

UNITED KINGDOM 

UK Visual Basic User Group 

1 5 Mount Way, Chepstow, Gwent, NP6 5NF. 
Phone & Fax: 44-0291-620720. Contact: Jeff 
Cabrie. 

UNITED STATES OF AMERICA 

ARIZONA 

Phoenix PC User Group— VB 

Phoenix. Phone: 602-980-7757. 

CALIFORNIA: 

Bay Area VB User Group 

Berkeley. Phone: 510-704-8200. Fax: 510- 
843-0174. 

Computer Experts of Northern CA 

Kentfield. Phone: 415-925-9880. 

Diablo Valley PC User Group 

Walnut Creek. Phone: 510-943-1367. 

Los Angeles VB User Group 

20540 East Arrow Hwy, Suite N2, Covina, CA 

91724. Phone: 818-332-8879. Fax: 818-331- 

5878. E-mail: 70372.3302@compuserve.com. 

Contact: Danish Kazi. 

Napa Valley PC User Group 

Napa. Phone: 707-257-2675. 

North Orange County Computer Club 

Orange. Phone: 714-645-5950. 

Orange County VB User Group 

Brea. Phone: 714-248-9702. 

Sacramento PC User Group 

Sacramento. Phone: 916-386-7965. 

San Diego VB User Group 

LaJolla. PVione: 619-459-5535. 

Santa Clarita Valley PC Group 

Canyon Country. Phone: 805-252-8852. 

Software Forum VBSIG - Silicon 
Valley 

Phone: 650-851 -4567. E-mail: 
acolby@guidex.com. Web: http:// 
www.softwareforum.org. Contact: Allan Colby. 

COLORADO 

Windows on the Rockies User Group 

Highlands Ranch. Phone: 303-470-6504. 
Fax: 303-449-7525. 

CONNECTICUT 

Connecticut Visual Basic SIG 

North Haven. Phone: 203-239-6874. 
Danbury Area Computer Society 

Danbury. Phone: 203-791 -2283. 

FLORIDA 

Manatee PC User Group Inc.— 
Quick VB 4.5 

Bradenton. Phone: 813-795-0601. 
South Florida Database & 
Developers Group 



Coconut Grove. Phone: 305-238-8026. Fax: 
305-858-371 9. E-mail: 1 02263,2502. 
Space Coast PC User Group 
Cocoa. Phone: 407-254-1 926. 
Tampa Bay Computer Society 
Clearwater. Phone: 813-443-4433. 

GEORGIA 

Atlanta PC User Group 

Atlanta. Phone: 404-393-1629. 
Atlanta Visual Basic User Group 

946 Glen Arden Way NE, Atlanta, GA 
30306. Phone: 404-874-6938. Fax: 404- 
872-1286. 

E-mail: andyd@mindspring.com. Web: http:// 
www.mindspring.com. Contacts: Andy Dean, 
Paul Goldsman. 

ILLINOIS: 

Chicago Corporate VB User Group 

Hoffman Estates. Phone: 708-952-3687. 
Visual Basic Developer Network 

Chicago. Phone: 708-430-2819. Fax: 708- 
430-3643. Web: http://www.vbdn.com. 
Contact: Jack Chemla. 

INDIANA: 

Indianapolis Computer Society— VB 

Indianapolis. Phone: 317-251-2003. 

KENTUCKY: 

VB User Group 

Louisville. Phone: 502-327-0333. Fax: 502- 
327-7418. 

MARYLAND: 

Capital PC User Group Inc.—VB 

Rockville. Phone: 301 -762-9372. 
Maryland VB User Group 

College Park. Phone: 301-405-2977. Fax: 
301-314-9198. 

MASSACHUSETTS: 

New England Software Developers 
(NESOFTDEV) 

30 Clark St., Holden, MA 01 520. Phone: 
508-829-2181. Fax: 508-829-2441 . E-mail: 
BusTechDev@msn.com. Web: http:// 
www.bustechdev.com/ nesoftdev. 

MICHIGAN: 

Visual Developers Group Inc. 

2784 Page Ave., Ann Arbor, Ml 48104. 
Phone: 313-973-7199. E-mail: 
vdggreg@aol.com. 

MINNESOTA: 

Twin Cities PC UG Inc.—VB 

Edina. Phone:612-229-5850. 

MISSOURI: 
Kansas City 

Heartland User Group — VB 

Belton. Phone: 816-322-1845. 

St. Louis User Group for the PC 

St. Louis. Phone: 314-458-9597. 
St. Louis VB User Group 

St. Louis. Phone: 314-984-8779. 

NEVADA: 

Las Vegas PC User Group — VB 

Las Vegas. Phone: 702-736-3788. 



NEW HAMPSHIRE: 

Boston Computer Society NH Chapter 

West Franklin. 

NEW JERSEY: 

Amateur Computer Group of NJ — VB 

Scotch Plains. Phone: 908-332-4659. 
VB Large User Group 

Englewood. Phone: 201-816-8900. Fax: 

201-816-1644. 

New Jersey 

Visual Basic User Group Inc. 

Pengastown Community Center, Elizabeth, NJ 
07206. Phone: 908-356-9125. Fax: 908- 
469-7783. 

NEW YORK: 

Capital District Computer 
Enthusiasts— VB 

Albany. Phone: 518-346-9997. 
Capital District VB User Group 

Albany. Phone: 518-459-8536. 
Long Island PC User Group— VB 

Baldwin. Phone: 516-223-1761. 
NYPC Visual Basic SIG 

150-34 61 Rd. Flushing, NY 1 1367. Phone: 
21 2-545-7070 ex. 213. E-mail: 
sonice@compuserve.com. Web: http:// 
www.webclub.com/ nypc/index.html. 
Visual Developer of NY User Group 
79 Springfield Ave., Rochester, NY 14609- 
3607. Phone: 716-288-5830. Fax: 716-482- 
7105. Web: http://www.frontiernet.net/ 
~soffech/vduny/. 

OKLAHOMA: 

Oklahoma City PC User Group— VB 

Oklahoma City. Phone: 405-791-0894. 
Tulsa Computer Society — VB 

Tulsa. Phone: 918-622-3417. 

OREGON: 

Portland Oregon VB User Group 

Hillsboro. Phone: 503-628-0705. Fax: 503- 
628-6005. 

PENNSYLVANIA: 

Philadelphia Area Computer Society 

Philadelphia. Phone: 215-951-1255. 
State College Area VB User Group 

c/o Blue Mountain Software, 208 W. 
Hamilton Ave., State College, PA 16810. 
Phone: 814-234-2417. 

TENNESSEE: 

Access/VB User Group 

Knoxville. Phone: 423-675-4450. Contact: 
Chris Patterson. 

Memphis PC User Group Inc.—VB 

Memphis. Phone: 901-375-4316. 

TEXAS: 

Houston Area League of PC Users 

Houston. Phone: 71 3-398-9424. 
Houston VB SIG 

321 5 Mulberry Hill Lane, Houston, TX 77084. 
Phone: 713-398-9042. 
Contact: Robert D. Thompson. 
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User Tip 




VB4/32, VB5 

SSTAB VS. OPTION BUTTONS 

Although VB's SSTab control behaves as if each tab page is a 
container, it in fact uses a single container for all tab pages. This 
can cause unexpected behavior if you have groups of option 
buttons on different pages. Clicking on an option button on one 
page will clear all the uncontained option buttons on the other, 
seemingly unrelated, pages. 

The solution is to add your own containers (frames or picture 
boxes) for each group of options that you want to be mutually 
exclusive. 

— Steve Cisco and Roland Southard 



SEND YOUR TIP 

If its cool and we publish it, we'll pay you $25. If the tip includes code, limit 
code length to 20 lines if possible. Be sure to include a clear explanation of 
what it does, why it's useful, and what versions of VB it applies to. Send to 
Fawcette Technical Publications, 209 Hamilton Avenue, Palo Alto, CA, USA, 
94301-2500. CompuServe: 74774,305. Internet: vbpjedit@fawcette.com. Please 
include your mailing address with your submission. 



North Texas PC User Group 

1112 Pueblo Dr., Richardson, TX 75080. 
VB Specialists 

Lewisville. Phone: 214-315-7528. 
UTAH: 

Utah Computer Society 

P.O. Box 51081 1 , Salt Lake City, UT 841 51 . Phone: 
801-521-7830. Web: http://www:ucs.org. BBS: 801- 
521-5009. 

VIRGINIA: 

Richmond Access/VB Developers' Forum 

Glen Allen. Phone: 804-273-6244. Fax: 804-273-1804. 

WASHINGTON: 

Pacific Northwest PC User Group 

1509 Queen Anne Ave., Seattle, WA 98109. Phone: 
206-285-1964. E-mail: rbuhrer@halcyon.com. 

WISCONSIN: 

Madison PC User Group— VB 

Madison. Phone: 608-231-2725. 
Milwaukee VB User Group 

14600 W. Fieldpointe Dr., New Berlin, Wl 531 51 . 

Web: http://www.mvbug.com. 

Milwaukee Area Visual Basic Users' Group 

PO Box 28, Waterford, Wl 53815-0028. Phone: 414- 
534-5181. E-mail: 75410.2203@compuserve.com. 
Contact: Arthur Edstrom. 




Save 20% on the Best 

g Books 



"Marketplace 



Buy any book and save 20% when you order through 
DevX's online bookstore. We carry the latest titles on: 



Visual Basic 
Visual C++ 
Java 



ActiveX 

Enterprise development 
and more! 



Plus, get 40% off our Featured Books of the Week. Select from 
our top titles for great savings— but act quickly because each week 
means another set of titles at incredible discounts! 



www.windx.com 



FTP Books 

FAWCETTE TECHNICAL PUBLICATIONS 



209 Hamilton Avenue • Palo Alto, CA 94301 
Phonet 650-833-7100 • Fax: 650-853-0230 



Java is a trademark of Sun Microsystems. Microsoft, Visual Basic, and Visual C++ are registered trademarks of Microsoft Corporation. 
The Development Exchange and DevX are trademarks of Fawcette Technical Publications. 



http:// www.windx.com 



Getting Started with Visual Basic SUMMER 1998 99 



Third-Party Products 




ne of Visual Basic 's most 
well-known and well- 



liked features is its extensibility. 

If you can 't find a tool you need in VB itself, 
chances are you can get it elsewhere and 
make it part of your VB menu or toolbox. 
Hundreds of third-party vendors sell devel- 
opment tools thatyou can use in conjunction 
with VB, either to enhance your develop- 
ment environment or to give your applica- 
tion enhanced functionality without writing 
all the code yourself. The tools that enhance 
your development environment are called 
add-ins;you access them from VB'sAdd-Ins 
menu. The components you can drop into 
your app to give it more functionality are 
called controls. VB3 supports Visual Basic 
custom controls (VBXs), while VB4and VB5 
support OLE controls (OCXs), now known 
as ActiveX controls. 

Here is a list, as selected by VBPJ prod- 
uct reviewer and contributing editor Don 
Kiely, of some of the best third-party add- 
ons to help you get started with Visual 
Basic. He has included products that fea- 
ture a collection of tools, help you design 
your user interfaces, and help you access 
data. Many of these products are produced 
by vendors that have supported Visual Ba- 
sic since its infancy, back in 1991. But this 
list is just the beginning — it doesn't even 
make a dent in all the add-on tools avail- 
able for Visual Basic. You can find more 
information on these and others in the 
Product Guide section of The Development 
Exchange, at http://www.windx.com. 

While FTP's intent is to provide the most 
accurate and comprehensive information 
possible, the manufacturers are ultimately 
responsible for the accuracy of data and 
product claims. We encourage you to contact 
them for further information. Please send any 
additions or corrections to this list to Listings 
Editor, Fawcette Technical Publications, 209 
Hamilton Avenue, Palo Alto, CA 94301-2500; 
fax them to 650-853-0230; or send Internet e- 
mail to epeterson@fawcette.com. 



Code Analysis & 
Documentation Tools 



NUMEGA FAILSAFE 

FailSafe is an Automatic Error Recovery System for Visual 
Basic. FailSafe intercepts program errors before they crash 
a program, keeping the program running. It then captures, 
records, andcommunicates the critical information needed 
to locate and resolve the cause of the error back to the 
developer, support organization, or help desk. $299. 
NuMega Technologies Inc. Phone: 603-578- 
8400 or 800-4-VBASIC. Fax: 603-889-1 1 35. 
Web: http://www.numega.com. E-mail: 
info@numega.com. 
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VBTRACE32 

VBTrace provides a list of the procedures executed by a VB 
program in the order in which they are executed. It helps 
you trace program flow from procedure to procedure or 
through idle time events such as SetFocus or input from 
the keyboard. Download VBTrace from http:// 
feenix.metronet.com/~cstuarl/. 
Chuck Stuart. Web: http:// 
feenix.metronet.com/ -cstuart/. 

VIDEOSOFTVSDOCX 

VSDOCX automatically documents ActiveX controls. 
When you create controls using Visual Basic 5.0 or 
Visual C++, VSDOCX creates the user documentation 
and help files for you. You can also document controls 
downloaded from the Web. It produces a document that 
is ready to print using any word processor or Web 
browser, and a complete context-sensitive, indexed, 
cross-linked help file. $249. 
VideoSoft. Phone: 510-595-2400 or 888- 
ACTIVEX. Fax: 510-595-2424. Web: http:// 
www.videosoft.com. E-mail: 
info@videosoft.com. 



Data Access & 
Report Writers 



DATA WIDGETS 

This set of six data-bound ActiveX controls lets develop- 
ers design front ends to Windows and Web-based data- 
base applications. The Data Grid control is an editable 
bound grid that allows you to edit an entire recordset on 
screen without writing any code. The Data Combo cus- 
tom control is a combo box you can use to display/edit a 
field value from one recordset while providing a drop- 
down list of field values from another set. The 
DataOptionSet custom control allows you to use 3-D 
option buttons that you can bind to a database field. The 
Enhanced Data Control (EDC) is an enhanced version of 
the Data control that ships with Visual Basic. $295. 
Sheridan Software Systems Inc. Phone: 516- 
753-0985 or 800-VB-DIRECT. Fax: 516-753- 
3661. Web: http://www.shersoft.com. 

DBCOMPLETE 

dbComplete is a database toolset that allows developers 
to build database applications with minimal code. The 
collection of components includes the Outline Data 
Grid, which can present data from multiple queries and 
heterogeneous database systems in an Explorer-like 
outline format; and the Intelligent Data Source Control, 
an ODBC-based data source control that can manipu- 
late complex master-detail data. $299. 
Visual Components Inc. Phone: 913-599-6500 
or 800-884-8665. Fax: 91 3-599-6597. Web: 
http://www.visualcomp.com. E-mail: 
sales@visualcomp.com. 

R&R REPORT WRITER FOR WINDOWS 

R&R Report Writer allows you to design snaking col- 
umn, crosstab, Avery label, or free-form database re- 
ports. Its open architecture allows you to customize 
report templates, wizards, dictionaries, predefined cal- 
culations, user-defined functions, and runtime report 
parameters. R&R Report Writer includes a royalty-free 
runtime with EXE, DLL, and VBX interfaces. $395. 
Concentric Data Systems Inc. Phone: 508-366- 
1 1 22 or 800-325-9035. Fax: 508-366-2954. 

SEAGATE CRYSTAL REPORTS 

Seagate Crystal Reports is a client/server report writer 
that allows you to design a variety of reports (or data- 
base applications with reporting) and distribute them 
through popular communication infrastructures, in- 



cluding the Internet. $195 Standard; $395 Professional. 
Seagate Software, IMG. Phone: 604-681- 
3435 or 800-877-2340. Fax: 604-681-2934. 
Web: http://www.img.seagatesofrware.com. 
E-mail: sales@crystalinc.com. 

SP_ASSIST 

sp_Assist 1.1 is a multiuser development tool for SQL 
Server used to manage the coding process of SQL 
database objects, including stored procedures, triggers, 
tables, indexes, keys, defaults, and rules. Features in- 
clude a multiuser SQL coding environment; code gen- 
eration of SQL and Visual Basic; encapsulation of all 
SQL keywords; executable statements; system stored 
procedures; and database administration tools. $595. 
Sheridan Software Systems Inc. Phone: 516- 
753-0985 or 800-VB-DIRECT. Fax: 516-753- 
3661 . Web: http://www.shersoft.com. 

TOTAL ACCESS STATISTICS 

Total Access Statistics lets you statistically analyze 
Microsoft Access data with all output in Access tables. It 
performs field analysis, group analysis, regressions, 
field comparison, cross-tabulations with Chi Square, 
probability evaluation of test values, and nonparamet- 
ric analysis. It saves scenarios for future use. Total 
Access Statistics includes interactive and program- 
matic interfaces. $199 per user. 
FMS Inc. Phone: 703-356-4700. Fax: 703- 
448-3861 . Web: http://www.fmsinc.com. 
E-mail: sales@fmsinc.com. 

VIDEOSOFT VSDATA 

VSDATA is a database engine in an ActiveX control. 
VSDATA gives you control of your data access by sup- 
porting record locking and multifield indexing. You can 
get multiple VSDATA controls to work together in any 
ActiveX container. VSDATA is multimedia-aware, al- 
lowing you to store video and sound files into native 
database fields and then use any of the built-in playback 
methods to give your applications sound or video. 
VSDATA is Internet-aware and supports hyperlinks as a 
native data type. $199. 

VideoSoft. Phone: 510-595-2400 or 888- 
ACTIVEX. Fax: 510-595-2424. Web: http:// 
www.videosoft.com. E-mail: 
info@videosoft.com. 

VIDEOSOFT VSREPORTS 

VSREPORTS allows you to print reports created in 
Microsoft Access without having Access or its runtime 
DLLs installed on the user's machine. It permits you to 
use Access to create your reports and then print them 
using Visual Basicorany ActiveX container. VSREPORTS 
re-creates Access reports, reproducing the exact posi- 
tioning of fields and page breaks, fonts, colors, sorting, 
and filtering into groups and sections, just as in the 
original report. VSREPORTS supports all Access Report 
writer features, including Visual Basic for Applications 
(VBA) expressions, aggregated fields, watermarks, and 
multicolumn and parameterized reports. You can output 
reports to an HTML file to be published on the Web. $149. 
VideoSoft. Phone: 510-595-2400 or 888- 
ACTIVEX. Fax: 510-595-2424. Web: http:// 
www.videosoft.com. E-mail: 
info@videosoft.com. 



Development 
Environment Tools 



INSTALLSHIELD EXPRESS 

InstallShield Express can create a single-file, self-ex- 
tracting executable containing your installation pro- 
gram and application all-in-one. You can then place that 
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file on the Web or anywhere else for convenient distri- 
bution. Your users simply download and open the single 
file to launch the InstallShield Express installation. 
$245. 

InstallShield Software Corp. Phone: 847-240- 
91 1 1 or 800-374-4353. Fax: 847-240-91 20. 
Web: http://www.installshield.com. E-mail: 
info@installshield.com. 

INSTALLSHIELD PRO 

Installshield Professional is a visual installation devel- 
opment environment. Its visual file layout editor allows 
you to drag and drop your application files and logically 
group them into file groups and application compo- 
nents. The MediaBuild Wizard lets you create any size 
media from the same installation project. With only a 
few steps of the MediaBuild Wizard, you can create 
installations for floppy disks, CD-ROM, or Internet dis- 
tribution. International versions are available. $1195. 
InstallShield Software Corp. Phone: 847-240- 
91 1 1 or 800-374-4353. Fax: 847-240-91 20. 
Web: http://www.installshield.com. E-mail: 
info@installshield.com. 

SPEED FERRET FOR VISUAL BASIC 

Speed Ferret for VB5 allows you to search all properties 
of objects for a text string and then simultaneously view 
and print out all occurrences, make changes to selected 
occurrences, test the changes, and undo unwanted 
changes. $129. 

Black Moshannon Systems. Phone: 814-345- 
5657. Fax: 814-345-5661 . Web: http:// 
www.moshannon.com. 

SPYWORKS PRO 

SpyWorks allows you to do anything in Visual Basic that 
is possible with other languages, by providing features 
such as advanced subclassing, windows hooks, call- 
backs, and debugging tools. 16- and 32-bit ActiveX 
edition for Visual Basic and other ActiveX containers. 
$249. 

Desaware. Phone: 408-377-4770. Fax: 408- 
371-3530. Web: http://www.desaware.com. 
E-mail: support@desaware.com. 

VBASSIST 

VBAssist is a set of 15 productivity tools that integrate 
into the Visual Basic 5.0 development environment. 
The Project Control View enables you to view the status 
of your Visual Basic projects and project groups. Prop- 
erty Tips is a design-time tooltip containing user-de- 
fined subsets of a control's properties at the mouse 
pointer. The Control Alignment Assistant creates a 
floating, dockable toolbar for convenient screen place- 
ment. $159. 

Sheridan Software Systems Inc. Phone: 516- 
753-0985 or 800-VB-DIRECT. Fax: 516-753- 
3661 . Web: http://www.shersoft.com. 

VISUAL SOURCESAFE 

The Visual SourceSafe repository offers a secure envi- 
ronment for Web content, source code, or any other type 
of file that is associated with a project. Visual SourceSafe 
stores files in a secure project repository that is main- 
tained by a security system. The system keeps your files 
out of harm's way, though they're still accessible to 
authorized users. $499. 

Microsoft Corp. Phone: 800-621-7930. Fax: 
206-936-7329. Web: http:// 
www.microsoft.com. 

WISE INSTALLATION SYSTEM 

The Wise Installation System is a Windows-based installa- 
tion editor that creates installation programs for Windows, 
Windows 95, and Windows NT. It comes with both Winl6 
and Win32 versions. It creates shortcuts/shell links for use 
with Windows 95, handles nested components, and has a 
full uninstaller. $195 Standard; $595 Enterprise. 
Wise Solutions Inc. Phone: 313-981-4970 or 
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800-554-8565. Fax: 313-981-9746. Web: 
http://www.wisesolutions.com. E-mail: 
sales@wisesolutions.com. 



Grid & Spreadsheet 
Controls 



FORMULA ONE 

Formula One is an Excel-compatible spreadsheet com- 
ponent that offers users a familiar interface while 
maintaining developer control and flexibility. Features 
include a built-in workbook designer, international 
language support, the ability to write spreadsheets to 
HTML, Read/Write Excel files, ODBC, Uniform Data 
Transfer support, and Print Preview. $199. 
Visual Components Inc. Phone: 913-599-6500 
or 800-884-8665. Fax: 913-599-6597. Web: 
http://www.visualcomp.com. E-mail: 
sales@visualcomp.com. 

SPREAD 

Spread offers more than 250 properties, 32 actions, and 
37 methods to create entry grids, toolbars, spread- 
sheets, and multiple or single select list boxes; or to 
read and display large amounts of data. Spread includes 
the Spread Designer— a design-time, WYSIWYG inter- 
face tool — which lets you customize the control with 
your mouse using property pages. It also generates 
Visual Basic code. $299. 

FarPoint Technologies. Phone: 919-460-4551 
or 800-645-5913. Fax: 919-460-7606. Web: 
http://www.Fpoint.com. E-mail: 
FarPoint@Fpoint.com. 

TRUE DBGRID PRO 

True DBGrid Pro is the enhanced, full-featured version 
of DBGrid that ships with Visual Basic. It is a data- 
aware ActiveX grid that manages all database opera- 
tions. True DBGrid Pro 5.0 includes data presentation 
and user interface features, and it provides 16-bit and 
32-bit OCX support. $299.95. 
Apex Software Corp. Phone: 41 2-681-4343 
or 800-858-2739. Fax: 412-681-4384. Web: 
http://www.apexsc.com. E-mail: 
sales@apexsc.com. 

VIDEOSOFTVSFLEX 

VSFLEX is a flexible data-analysis tool. By adding your data 
to the vsFlexArray control and setting a couple properties, 
your users can dynamically pivot the data between col- 
umns. All the data is automatically sorted, merged, and re- 
arranged. The OCX version supports Microsoft Visual 
Basic 4.0 and 5.0, Microsoft Access 95 and 97, Visual 
FoxPro, and Microsoft Visual C++ 4.0 and 5.0. VSFLEX also 
includes vsFlexString, a control that allows you to find and 
replace complex string patterns. $249. 
VideoSoft. Phone: 510-595-2400 or 888- 
ACTIVEX. Fax: 510-595-2424. Web: http:// 
www.videosoft.com. E-mail: 
info@videosoft.com. 



Interface Tools & 
Graphics Utilities 



ACTIVELISTBAR 

ActiveListBar is a navigation control that adds the look 
of Microsoft Outlook to your application. It uses a 
system of sliding groups, each identified by a header. 
ActiveListBar is fully ActiveX-compliant and supports 
Internet operation through the inclusion of special URL 
properties for graphics and sound resources. $109. 
Sheridan Software Systems Inc. Phone: 516- 
753-0985 or 800-VB-DIRECT. Fax: 516-753- 
3661. Web: http://www.shersoft.com. 

ACTIVETHREED 

ActiveThreed is a set of seven 32-bit ActiveX controls 



Third-Party Products 



that allow you to give the most prevalent elements in 
applications an Internet/intranet look and feel. 
ActiveThreed provides active features such as marquee 
captions, graphics animation, and transparent back- 
grounds. $139. 

Sheridan Software Systems Inc. Phone: 516- 
753-0985 or 800-VB-DIRECT. Fax: 516-753- 
3661. Web: http://www.shersoft.com. 

CALENDAR OBJX 

The Calendar ObjX package includes three controls: the 
fpCalendar control is a standalone calendar that you 
can customize to support different formats and appear- 
ances; the fpClock control lets you provide customized 
digital and analog clocks in your application; and the 
fpPoster control lets you display pictures in your appli- 
cation. $159. 

FarPoint Technologies. Phone: 919-460-4551 
or 800-645-5913. Fax: 919-460-7606. Web: 
http://www.Fpoint.com. E-mail: 
FarPoint@Fpoint.com. 

CALENDAR WIDGETS 

Calendar Widgets is a set of four controls for use in 
developing any Windows-based application that needs 
to visually display, select, and manage dates and times. 
It includes versions for 16-bit Visual Basic custom 
controls and 16- and 32-bit OLE controls. It includes 
MonthView, YearView, DayView, and DateCombo con- 
trols. $139. 

Sheridan Software Systems Inc. Phone: 516- 
753-0985 or 800-VB-DIRECT. Fax: 516-753- 
3661 . Web: http://www.shersoft.com. 

DESIGNER WIDGETS 

Designer Widgets from Sheridan Software Systems 
provides versions for 16-bit Visual Basic custom con- 
trols and 16- and 32-bit ActiveX controls. The Dockable 
Toolbar control lets you create floating toolbars of but- 
tons that the user can "dock" to the top, sides, or bottom 
of a multiple document interface (MDI) form. The 
FormFX control gives you control over the appearance 
and behavior of your forms. The IndexTab control lets 
you design efficient dialogs using the index tab meta- 
phor to group collections of related options, and the 
Notebook control allows you to easily create applica- 
tions utilizing the notebook metaphor. $139. 
Sheridan Software Systems Inc. Phone: 516- 
753-0985 or 800-VB-DIRECT. Fax: 516-753- 
3661. Web: http://www.shersoft.com. 

FIRST IMPRESSION 

First Impression is a charting component that includes 
more than 35 chart types, including two-dimensional and 
three-dimensional options. Features include support for 
uniform data transfer, localizable ActiveX controls, and a 
language-specific spreadsheet and charting control. Avail- 
able as 16-bit and 32-bit OCX and DLL. $199. 
Visual Components Inc. Phone: 91 3-599-6500 
or 800-884-8665. Fax: 913-599-6597. Web: 
http://www.visualcomp.com. E-mail: 
sales@visualcomp.com. 

GRAPHICS SERVER 

Graphics Server adds client-side and server-side graph- 
ing to your Web pages. It allows you to add interactive 
graphs to the numerical data on your Web page. Graph- 
ics Server also offers multiple platforms, multiple hosts, 
multiple interfaces, and an extensive range of graphs, 
charts, and statistical functions. $349. 
Pinnacle Publishing Inc. Phone: 206-625-6900 
or 800-788-1900. Fax: 206- 625-9102. 
Web: http://www.pinpub.com. E-mail: 
ppi@pinpub.com. 

TAB 

Tab is a flexible tab control. You can choose from seven 
predefined appearance styles: Notebook, Notecards, 
Notched, Worksheet, Personal Organizer, Property 



101 



Getting Started with Visual Basic SUMMER 1998 



f ages, and i raaiuonai. timer ieaiures intiuue uie auu- 
ity to define the number of tabs per row and the number 
of rows of tabs; position tab headers on the top, bottom, 
left, or right side; and insert and align pictures in the 
tab headers. $69 Standard; $129 Professional. 
FarPoint Technologies. Phone: 919-460-4551 
or 800-645-5913. Fax: 919-460-7606. Web: 
http://www.Fpoint.com. E-mail: 
FarPoint@Fpoint.com. 

VIDEOSOFTVS-OCX 

VS-OCX contains three controls. The vsElastic control 
automatically resizes all the controls on your form when 
the user stretches it. The vsIndexTab control presents 
several screens worth of data in the space of one by 
using notebook-style tabs like those in Word or Excel. 
When you resize the form, the contents of each tab 
resize automatically. The vsAwk string parser control 
slices and dices your strings automatically and includes 
an expression evaluator that supports variables. $99. 
VideoSoft. Phone: 510-595-2400 or 888- 
ACTIVEX. Fax: 510-595-2424. Web: http:// 
www.videosoft.com. E-mail: 
vsflex@videosoft.com. 

VIDEOSOFT VSVIEW 

VSVIEW contains several controls and components. The 
vsPrinter control allows you to print paragraphs and 
text thatwill wrap automatically. With the DataReporter, 
your users can create data-aware reports by dragging 
and dropping database fields from a record source that 
you provide. Your users can also customize the look and 
feel of the report themselves. VSVIEW also provides 
print preview capabilities, with the ability to view the 
document at customizable zoom levels and then send it 
to the printer by toggling a single property. Also in- 
cluded i n VSVIEW are a drawing control, a virtual desk- 
top control, and a control that lets you customize the 
look of your forms and controls. $249. 
VideoSoft. Phone: 510-595-2400 or 888- 
ACTIVEX. Fax: 510-595-2424. Web: http:// 
www.videosoft.com. E-mail: 
vsflex@videosoft.com. 



Tool Collections, 
Multipurpose Tools, & 
Code Libraries 



DEVPARTNER FOR VISUAL BASIC 

DevPartner for Visual Basic is a suite of automatic 
source-code and error-analysis tools for Visual Basic 
development. It consists of four debugging tools for 
Visual Basic: CodeReview, SmartCheck, TrueTime, and 
FailSafe. $549. 

NuMega Technologies Inc. Phone: 603-578- 
8400 or 800-4-NUMEGA. Fax: 603-889- 
1 135. Web: http://www.numega.com. 
E-mail: info@numega.com. 

MEGA PACK 

Mega Pack, a package of 22 custom controls, includes 
Alarm, BarCode, BmpList, Joystick, Menu, Percent, 
Rotate text, Sound, Label, LED, MSSIot, Tips, and Wave. 
Visual Basic source code is available. $179; $399 with 
source code. 

Mabry Software. Phone: 206-634-1443 or 
800-99-MABRY. Fax: 206-632-0272. Web: 
http://www.mabry.com. E-mail: 
mabry@mabry.com. 

MICROSOFT OFFICE 97 DEVELOPER 
EDITION 

Microsoft Office 97 Developer Edition is designed spe- 
cifically for professional developers. It contains all the 
applications included in Office 97 Professional Edi- 
tion — Excel, Access, Word, PowerPoint, and Outlook — 
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bution. It includes printed developer documentation, 
Access and Visual SourceSafe integration tools, Setup 
Wizard, Microsoft Replication Manager, and ActiveX 
controls. $799. 

Microsoft Corp. Phone: 800-621-7930. Fax: 
206-936-7329. Web: http:// 
www.microsoft.com. 

OLETOOLS 

OLETools offers 50 32-bit ActiveX controls designed to 
help you build any type of application. It includes tools 
for interface building, multimedia, and time manage- 
ment. Some of the controls include label, calendar, 
button, picture, and timer controls. $229. 
BeCubed Software. Phone: 770-720-1077. 
Fax: 770-720-1078. Web: http:// 
www.becubed.com. E-mail: 
sales@becubed.com. 

QUICKPAK VB/J++ 

QuickPak VB/J++ is a toolset of ActiveX components for 
developing applications using VB or Visual J++. It con- 
tains more than 400 functional routines and sample code. 
$249. 

Crescent Division of Progress Software Corp. 
Phone: 617-280-3000 or 800-35-BASIC. Fax: 
617-280-4025. Web: http:// 
crescent.progress.com. E-mail: 
crescent@progress.com. 

SHERIDAN COMPONENTS SUITE 

Sheridan Components Suite 2.0 combines three ActiveX 
components in one package. Calendar Widgets is a set of 
reusable components for incorporating date-related and 
time-related information in your applications. Data Wid- 
gets 3.0 is a set of six ActiveX controls for designing front 
ends for your database applications. Designer Widgets 
2.0 comprises components designed to give your applica- 
tion interfaces a state-of-the-art look and feel. $299. 
Sheridan Software Systems Inc. Phone: 516- 
753-0985 or 800-VB-DIRECT. Fax: 516-753- 
3661 . Web: http://www.shersoft.com. 

STAMINA 

Stamina offers more than 250 functions. It includes 
sorting arrays and entire disk files; searching strings, 
arrays, files, and drives; CRC and checksum calculations; 
and date format conversions. Stamina's functions are 
written in 32-bit assembly language and can be called 
directly from VB4, VB5, or any other OLE-aware 32-bit 
language. Many of the routines are exposed through a 
type library for Unicode awareness. Stamina comes with 
an online reference that has embedded links to Visual 
Basic sample programs demonstrating its routines. Full 
source code is available at additional cost. $199. 
MicroDexterity Inc. Phone: 734-453-5872 or 
888-891-0700. Fax: 734-453-8942. Web: 
http://www.microdexterity.com. E-mail: 
sales@mdxi.com. 

VBTOOLS 

VBTools offers 50 16-bit ActiveX controls. It includes the 
International control to enable text translation; the 
Flowcharting control to add flowchart capabilities to 
your program; and the 2D Slider control to provide a 
sliding mark within a two-dimensional area. It also 
includes button, label, and gauge controls. $129. 
BeCubed Software. Phone: 770-720-1077. 
Fax: 770-720-1078. Web: http:// 
www.becubed.com. E-mail: 
sales@becubed.com. 

VISUAL COMPONENTS STUDIO 

This suite of component software includes First Im- 
pression, Formula One, dbComplete, and VisualSpeller. 
All online documentation, example code, and demon- 



Visual Components Inc. Phone: 913-599-6500 
or 800-884-8665. Fax: 913-599-6597. Web: 
http://www.visualcomp.com. E-mail: 
sales@visualcomp.com. 



Training Tools 



MASTERING MICROSOFT OFFICE 97 
DEVELOPMENT 

Mastering Microsoft Office 97 Development teaches 
developers how to create Office 97-based solutions. You 
learn how to use Visual Basic for Applications (VBA) to 
take advantage of Office 97 object models and incorpo- 
rate ActiveX controls to create powerful, extended solu- 
tions. You will also learn how to use Data Access Objects 
(DAO) to access data and integrate intranet technolo- 
gies in documents. $99.95. 
Microsoft Corp. Phone: 800-621-7930. Fax: 
206-936-7329. Web: http:// 
www.microsoff.com. 

MASTERING MICROSOFT VISUAL BASIC 5 

Mastering Microsoft Visual Basic 5 provides profes- 
sional-level training with more than 40 hours of inter- 
active instruction on CD-ROM. It helps developers learn 
how to create custom solutions and build their exper- 
tise in database programming and ActiveX component 
creation. $99.95. 

Microsoft Corp. Phone: 800-621-7930. Fax: 
206-936-7329. Web: http:// 
www.microsoft.com. 



Web & Internet 

Application 

Development 



FORMULA ONE/NET PRO 

This Internet spreadsheet component provides Web 
browsers with spreadsheet functionality. Use with 
Netscape Navigator 2.0 to embed workbooks in browser 
windows. Users can view and update workbook data, 
including numbers, text, and formulas. Charts remain 
live when you view them and update automatically as 
worksheet data changes. $79. 
Visual Components Inc. Phone: 91 3-599-6500 
or 800-884-8665. Fax: 91 3-599-6597. Web: 
http://www.visualcomp.com. E-mail: 
sales@visualcomp.com. 

INTERNET PACK 

Internet Pack contains 10 VBXs and 32-bit OLE controls 
that give your applications access to the Internet. The 
controls include GetHst, which translates host names to 
IP addresses and vice versa; ASocket, which gives you 
direct access to Windows Socket; Gopher; Mail; News; 
RAS; Time; and Whols. $129. 
Mabry Software. Phone: 206-634-1443 or 
800-99-MABRY. Fax: 206-632-0272. Web: 
http://www.mabry.com. E-mail: 
mabry@mabry.com. 

INTERNET TOOLPAK 

Internet ToolPak is a set of tools for creating applica- 
tions that give you and your users access to the re- 
sources of the Internet — without Internet protocol ex- 
pertise or low-level coding. It contains 16 ActiveX con- 
trols, more than two dozen sample programs, and an 
Internet Mail Wizard that leads you through creating 
applications that exploit Internet capabilities. $199. 
Crescent Division of Progress Software Corp. 
Phone: 617-280-3000 or 800-35-BASIC. Fax: 
617-280-4025. Web: http:// 
crescent.progress.com. E-mail: 
crescent@progress.com. 
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hese reviews offer some extended infor- 
mation to four of the third-party products 



described in Don Kiely's list of beginner-ori- 
ented development tools. You can find these 

reviews, plus many more, on The Development Exchange Website 
at http://www.windx.com. Go to Product Reviews under the 
Resources section. Reviews of third-party add-on tools also appear 
monthly in Visual Basic Programmer's Journal, as well as in the 
annual Buyers Guide & Product Directory special issue, both 
sister publications oAGetting Started with Visual Basic. Check out 
The Development Exchange for more information on these 
magazines. 

Generate 
Web reports 

Seagate Crystal Reports has finally gotten it right. I've had 
a love-hate relationship with it ever since Microsoft in- 
cluded this reporting tool with Visual Basic. Crystal could 
almost do what I wanted, but not quite. And what it did do was 
difficult to accomplish. I expected no change in opinion when 
asked to review the latest version. 

I'm pleased to report that version 6.0 justifies Crystal's preemi- 
nent position in the database reporting world. Perhaps it has 
become such a behemoth that it was bound to satisfy my needs by 
sheer inertia, but I found it to be an impressive, fun-to-use package. 
You'll still need to work to produce reports, but Seagate has 
simplified the process while adding a spectacular array of features. 

In its heart of hearts, Crystal is still the banded report 
generator it always has been. After you connect to a data store, 
Crystal accesses its structure, defines a query, and places fields 
on "bands" that define their behavior when a report is gener- 
ated. It also supports connections to just about any database 
and serves as an OLE container, allowing you to place almost 



Don Kiely spends most of his time programming Windows and Web 
applications. In his spare time, he explores Interior Alaska as well as 
the interactions and conflict between the cash and subsistence econo- 
mies. He's written and coauthored several books about VB and VC++, 
including Visual Basic 5 Client/Server How-To and The Ultimate VB 
Controls Sourcebook. Reach him at donkiely@computer.org. 
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Reporting the Right Way. Seagate Crystal Reports Pro 6.0 is 
finally the great database reporting tool it was meant to be. Now full 
of features that work, it includes Internet capabilities that make it 
easy to publish both static and dynamic data on the Web. 



any OLE object within a report. 

Seagate has resolved all my pet peeves regarding Crystal 
Reports. You can now include subreports within almost any 
section of a report — a feature that eases my Access-envy. You 
can embed existing RPT report files in a new report, create new 
subreports with data related to the records in the main report, 
or create new subreports with data completely unrelated to the 
data in the main report. The only limitation — a big one — is that 
you can't nest subreports more than one layer deep. 

In previous versions of Crystal, you had to write a formula to 
use anything other than raw data in a database field. Crystal's 
new text objects, however, reduce the need for so many 
formulas. Simply add a text object, drag in the fields you want to 
concatenate, for example, and you're done. 

Seagate has followed Microsoft's lead and "gone Internet" in 
a big way. Crystal Reports now allows you to save reports in 
HTML format and put them on your Web site, but more impres- 
sive is the ability to produce dynamic database reports on your 
Web site using the Professional Edition. The Pro package in- 
cludes ActiveX and Java report viewers, giving users the ability 
to drill down into data, change selection formulas, and run SQL 
stored procedures. 

I was a bit overwhelmed with this massive package, starting 
with the 670-page manual, but Seagate has made the task of 
learning Crystal Reports manageable. In addition to the sample 
database and a bajillion sample reports included with the prod- 
uct, the manual clearly describes several suggested learning 
paths. Any kind of user can get up to speed quickly and efficiently. 

This is a big, complex package, but it is finally an excellent 
development tool. Well worth the upgrade. M 



Speed search-and-replace 

It isn't often I encounter a product for Visual Basic that makes | code, its options are limited. Speed Ferret provides more flexlbil- 

me stop in amazement and wonder, "Why didn't I think of ity and control over the process, including the ability to search 

that?" But Speed Ferret, from Black Moshannon Systems, solves | for all text within a project — even text in object properties, 

a problem I didn't even know I had. Although VB provides a When you start Speed Ferret from the VB Add-Ins menu, you 

simple search-and-replace facility in the IDE to search source I get a clean dialog with search options. The usual text boxes for 
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Lightning-Fast and Flexible Searches. Speed Ferret lets you preview changes before committing 
them and lets you select the changes you want to make. In this example, I can change "Date" to 
"Data " anywhere in VB 's VisData sample project. 

Find What and Replace With start the form, followed by a list box 
with seven matching criteria: Any Part of Text, Whole Word, 
Start of Word, End of Word, Whole Value, Start of Value, and End 
of Value. You can define object and property sets to limit the 
search to items such as all text boxes or Caption and Text 



Don Kiely spends most of his time programming Windows and Web 
applications for rural Alaskan businesses. He lives in Interior 
Alaska where he has seen neither fast nor slow ferrets, but plenty 
of lemmings. He 's written and coauthored several books about VB 
and VC++, including Visual Basic 5 Client/Server How-To. Reach 
him at donkiely@computer.org. 



properties. You can also create 
"Property Slices," a specific set 
of properties for a specific set of 
objects, such as the Caption prop- 
erty for all Label controls. 

When you click on either the 
Find or Replace button, Speed 
Ferret searches the entire project 
all at once and presents a grid of 
all instances of the specified text 
that it finds. It lists the site (the 
module or object name, and con- 
trol or procedure name with a 
line number), the property in 
which the text was found, the 
current text value, what the new 
value will be if you select Re- 
place, and the replace-change 
status (initially Pending). 

To manually edit the new value 
for only a subset of the replace- 
ments, change the text in the grid. 
If you spot an unintended change, 
you can update specific rows you 
select. After inspecting potential changes, click on the Save 
Replacements button to make all changes in the project. How- 
ever, even after quitting Speed Ferret and continuing to code, you 
can return to it and undo some or all of the changes. You can even 
save and restore Speed Ferret sessions. 

Speed Ferret offers other features that make your life easier, 
such as replacement logs, error logs, wildcard and regular 
expression searches, and Formats type string formatting. Af- 
ter the first search on a project, Speed Ferret caches informa- 
tion to make subsequent searches fast. 

Speed Ferret is a marvelous product. I have no idea how I 
coded in VB without it. ■ 
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Imitate the 
Outlook Bar 

Sheridan Software Systems boasts a long history of dupli- 
cating proprietary features of Microsoft's innovations so 
the rest of us can use them. In that tradition, ActiveListBar 
duplicates the features of the Microsoft Outlook Bar — the verti- 
cal toolbar usually to the left of the Outlook window that 
contains icons in sliding groups titled Outlook, Mail, and Other. 

ActiveListBar makes moving between groups of icons easy. 
Each icon is highlighted as the mouse moves over it, and users 
can easily customize the toolbar. A healthy set of events lets you 
respond to user actions such as clicking and double-clicking, 
group clicking when the caption is clicked on, and moving the 



Don Kiely spends most of his time pmgrumming Windows and Web 
applications. He 's written and coauthored several books about VB and 
VC++, including Visual Basic 5 Client/Server How-To and The Ulti- 
mate VB Controls Sourcebook Reach him atdonkiely@computer. org. 
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OutlookMeets VB. WithSheridan 's ActiveListBar, your applications 
can have the snazzy new sliding toolbars that Microsoft introduced 
in Outlook. 



mouse cursor into and out of the icon. The set of methods gives 
you complete control over configuring the groups and icons. 
ActiveListBar provides a comprehensive set of objects and col- 



http://www.windx.com 



and flexible. 

ActiveListBar typifies Sheridan controls by giving you plenty 
of properties for customization. You can set a different back- 
ground for each sliding group, with pictures tiled, centered, or 
stretched. You can make icons large or small and instruct them to 
use images from two image collections. ActiveListBar also allows 
you to associate sounds with events by using the PlaySoundFile 
method, accessing either sound files or Windows system sounds. 

Some nifty Internet features facilitate fast downloads. 
ActiveListBar supports PNG graphics compression files for smaller 
image downloads (as long as you distribute a 43K DLL). The CAB 
file Sheridan supplies is 137K. Sound and graphics files download 
asynchronously to let your app stay active in the meantime. 

Programming the control isn't effortless, but Sheridan gives 



on the control to customize it, you must create the menus 
needed and do the work yourself. Also, the control has a fairly 
standard set of user customizations you must create over and 
over. I'd love to see support for common actions such as adding 
groups, adding icons, and changing window location, as well as 
a wrapper class for encapsulating such features. 

You won't get a printed manual, but the property pages, 
extensive tutorial sections in the help file, and sample code make 
ActiveListBar easy to learn and use. Although the code is in VB4 
format and some of the examples require Sheridan's ActiveThreed 
product to run, I didn't have any trouble using the control in VB5. 

The sliding groups metaphor isn't appropriate for every app, 
but if you need this functionality, you won't find an easier or more 
reliable way to add it. Still, I miss the manual! ■ 



Speed 

development with 
QuickPak 



Crescent QuickPak VB/J++ 1 .0 is a collection of 32-bit ActiveX 
components for developing applications using Visual Ba- 
sic and/or Visual J++. The components, designed to ease devel- 
opment time, include routines for the Internet/intranet, Win- 
dows NT, and Windows 95. 

Using QuickPak requires Service Pack 1 for Win95, Internet 
Explorer 3.01 as your default browser, and VB 4.0a or 5.0. Like that 
IE 3.01 in there? Almost seems that third-party software develop- 
ers are being Microsoft'd in the same way as hardware vendors, 
who must now include Office 97 and/or Win95 with their systems. 

Now for the VB/J++ part: the real reason to consider buying 
this package is the new DLLs. They provide functions that let 
you work with security under NT 4.0 as well as manipulate 
strings (the Spell and Tab/Space features seem the most useful). 
Other functions let you compare files, count the files in a 
specified directory, search for a text string within a file, set file 
attributes and date/time, check word and line counts, and 
(shudder) change the size of a file. 

You can also take advantage of utilities that let you speed up 
or slow down keyboard rates, manipulate the PC speakers, and 
(again, shudder) poke bytes of information into memory. 
Internet DLLs allow you to ping hosts, check TCP/IP configura- 
tions, and manage Internet Information Server/Personal Web 
Server servers. 

To provide support for VB4/16, the CD-ROM includes the 

Bill Shadish is a principal of Fundamental Objects Inc., where he 
works with ActiveX controls and OLE server technology. Bill 
coauthored the books Using OLE in Visual Basic 4 (Pinnacle 
Publishing Inc.) and LotusScript for Visual Basic Programmers 
(IBMITSO Publications). Reach him by e-mail at bills@fo.com. 
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Microsoft-Centric. Crescent QuickPak VB/J++ 1.0, acollection of 
32-bit ActiveX components, requires Service Pack 1 for Win95, 
Internet Explorer 3.01 as your default browser, and VB 4.0a or 5. 0. 

existing QuickPak Professional 4.3 kit of OLE controls. The label 
control lets you create 3-D, sunken effects with the label text, 
and saves the design property states to disk. This prevents you 
from setting the same property each time you add the control to 
your form. Some of the features are a little long in the tooth. For 
example, the CSForm control extends a VB form by adding 
properties, events, and methods to a VB form — something you 
can do on your own. Another shortcoming is that the product 
includes no paper documentation. However, Crescent's mix of 
HTML and HLP files served me fine. 

QuickPak VB/J++ doesn't work with Netscape Navigator due 
to its lack of COM support. Hello? Netscape supports a plug-in 
from NCompassLabs that provides VBScript and ActiveX sup- 
port within the Netscape browser environment. Somebody's 
getting free peeks at NT 5.0 APIs or internals out of this IE3-only 
deal. A little more ActiveX control and Java classes, and a little 
less Windows-only DLL work would have been nice for those 
wishing to remain somewhat portable. 

The QuickPak 4.3 controls are useful if you're just starting 
with VB4 or VB5 development and don't yet have an existing 
source code base. Overall, QuickPak VB/J++ offers a good deal 
of value for the money. M 
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his glossary of key pro- 
gramming terminology 



should serve as a starting point 
as you learn Visual Basic. 

The glossary is updated regularly on The 
Development Exchange Website, athttp:// 
www.windx.com. Type VBTERMS in the 
Locator* field. If a term is not listed here, or 
for a more detailed explanation, consult 
the Programmer's Guide and online help 
that come with Visual Basic. Also, you can 
find a number of dictionaries on the market 
that are entirely devoted to computer-related 
terminology. 



ABC 



Abs Function: Returns the absolute value of n. 

Activate Event: Occurs when a form becomes the 
active window. 

ActiveX Control: Microsoft uses ActiveX as an 
umbrella term to encompass any technology for develop- 
ing Internet-related applications. There are two types of 
ActiveX controls: traditional OLE controls.which Microsoft 
calls desktop ActiveX controls, and Internet ActiveX con- 
trols, which are optimized for Internet download. 

ANSI: Acronym for the American National Standards 
Institute. ANSI-standard programming languages con- 
form to ANSI recommendations designed to eliminate 
variations that could cause problems in transporting 
programs from one type of computer system to another. 

Application Programming Interface 
(API): An interface consisting of functions, messages, 
data structures, data types, and statements you use to 
create apps that run under Windows. 

Argument: A value that is passed to a subroutine, 
function, or method that affects the way a task is per- 
formed. 

Array: A list of variables, all with the same name and 
data type. 

Ase Function: Returns a numeric value that is the 
ANSI code for the first character in a string expression. 

ASCII: Acronym for American Standard Code for Infor- 
mation Interchange. A coding scheme that assigns nu- 
meric values to letters, numbers, punctuation marks, and 
certain other characters on a keyboard. 

Atn Function: Returns the arctangent, in radians, of n. 

Back End: The database to which information pre- 
sented by the front-end app connects. 



Bound Control: A control that can be linked to a 
data control at design time and made to display that data 
in the current record. Text boxes, check boxes, image 
controls, labels, and picture boxes are all bound controls. 

CCur Function: Converts any valid expression to 
Currency. 

CDbl Function: Converts any valid expression to 
Double. 

Change Event: Indicates that the contents of a 
control have changed. 

Choose Function: Selects and returns a value 
from a list of arguments. 

Chr Function: Returns a one-character string 
whose ANSI code is the argument. 

Clnt Event: Converts anyvalid expression to Integer. 

Class: Each object in Visual Basic is defined by a 
class, which defines the characteristics of each object. 

Class Module: Used to create your own objects. 
Class modules can include code for methods and prop- 
erties, but they can't have their own events. Class 
modules have no visible user interface. 

Click Event: Occurs when the user presses and 
then releases a mouse button over an object. May also 
occur when the value of a control is changed. 

CLng Event: Converts anyvalid expression to Long. 

Combo Box: Combines the features of a text box 
and a list box. Used to give the user the choice of typing 
in the text box portion or selecting an item from the list 
portion of the control. 

Command Function: Returns the argument 
portion of the command line that launches VB. 

Compiler: Translates code into an executable file. 

Component Object Model (COM): 

Microsoft's infrastructure for code modules that are 
independent of programming languages and computer 
platforms. OLE is a high-level COM implementation. 

Control: A tool for creating objects on a VB form. Most 
controls are used to create user interface elements, 
such as command buttons, image boxes, and list boxes. 

Cos Function: Returns the cosine of the angle n. 
The angle n is expressed in radians. 

CreateObject Function: Creates an OLE Auto- 
mation object. 

CSng Function: Converts anyvalid expression to 
Single. 

CStr Function: Converts any valid expression to 
String. 

CurDir Function: Returns the current path for 
the specified drive. 



Custom Control: A reusable component that pro- 
vides a discrete piece of funtionality that you do not have 
to code from scratch. 

CVar Function: Converts any valid expression to 
Variant. 

CVDate Function: Converts an expression to a 
Variant of VarType 7. 
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Data Control: Provides buttons that allow you to 
move through records in a database. 

DateAdd Function: Returns a Variant containing 
a date to which a specified time interval has been added. 

DateDiff Function: Returns a Variant containing 
the number of time intervals between two specified dates. 

Date Function: Returns the current date from the 
system clock. 

DatePart Function: Returns a specified part of a 
given date. 

DateSerial Function: Returns the date serial for 
a specific year, month, and day. 

DateVdlue Function: Returns the date repre- 
sented by a String argument. 

Day Function: Returns a whole number represent- 
ing the day of the month. 

DblClick Event: Occurs when the user presses 
and releases a mouse button and presses and releases 
it again over an object. 

DDB Function: Returns the depreciation of an asset 
for a specific period using the double-declining balance 
method. 

Deactivate Event: Occurs before a different form 
becomes the active window. 

Debug: To detect, locate, and correct logical or syntac- 
tical errors in a program. 

Default Property: A property accessed when a 
value is assigned to an object and no property is specified. 
VB objects usually have a Default property. 

Design Time: Term describing changes youmake to 
your program through VB when the program is not run- 
ning. Opposite of run time. 

Dir Function: Returns the name ofafileordirectory 
that matches a specified pattern and file attribute. Also 
can return the volume label of a drive. 

DoEvents Function: Causes Visual Basic to yield 
execution so that Windows can process events. 

DragDrop Event: Occurs when a drag-and-drop 
operation is completed as a result of dragging a control 
over a form or control and releasing the mouse button. 
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DragOver Event: Occurs when a drag-and-drop 
operation is in progress. 

DropDown Event: Occurswhenthelistportionof 
a combo box is about to drop down. 

Dynamic Data Exchange (DDE): A mecha- 
nism supported by Windows that allows two applications 
to continuously and automatically exchange data. 

Dynamic Link Library (DLL): Allows develop- 
ers to bind code to one of many executables at run time 
rather than at link time, creating an environment in 
which many applications can use the same code base. 

Encapsulation: Allows you to group subroutines 
and variables together in a class. 

Enterprise Edition: Version of VB for creating 
robust client/server apps. Includes all features of Profes- 
sional Edition plus Automation Manager, Component 
Manager, database management tools, and more. 

Environ Function: Returns the string associated 
with an operating system environment variable. 

EOF Function: Returns a value during file input 
indicating whether the end of a file has been reached. 

Err Function: Returns error status. 

Error Function: Returns the error message that 
corresponds to a given error code. 

Error Event: Occurs only as the result ofa data access 
error that occurs when no VB code is being executed. 

Event Handler: Subroutine called directly from VB 
in response to events associated with a particular object. 

Event Procedure: Contains code that is executed 
when an event occurs, such as when the user presses a 
mouse button. 

Event: Somethingthathappens that is associated with 
an object. For example, when the user presses the left 
mouse button over a button control. When an object's 
event occurs, VB calls the associated event handler. 

Exp Function: Returns the constant e raised to the 
power n. 

Field: One of several pieces of data that make up a record. 

F i le Aft r Function: Returns file mode or operating 
system file-handle information about an open file. 

FileDateTime Function: 

Returns a String indicating the date and time a specified 
file was created or last modified. 

FileLen Function: 

Returns a Long integer that indicates the length of a file 
in bytes. 

Floating Point: Mathematical operation based on 
a number expressed as a whole or a fraction, such as 1.5 
or 3.421. 



Focus: Term used to describe the active window. 
Typed keys are directed to the window that has the focus. 

Form Module: Can contain textual descriptions of 
the form and its controls, including their property set- 
tings. Can also contain form-level declarations of con- 
stants, variables, and external procedures. 

Format Function: Formats a number, date, time, 
or string according to instructions contained in a format 
expression. 

FreeFile Function: Returns the next valid unused 
file number. 

Front End: The app used in front of all other apps. 
Upon startup of the front-end app, users see menus and 
icons that allow them to perform common tasks. 

Function: A subroutine that returns a value. 

FV Function: Returns the future value of an annuity 
based on periodic, constant payments and a constant 
interest rate. 
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GetAttr Function: Returns an integer that indi- 
cates the attributes of a file, directory, or volume label. 

GetObject Function: Retrieves an OLE Automa- 
tion object from a file. 

GotFocus Event: Occurs when an object receives 
the focus, either by user action such as tabbing to or 
clicking on the object, or by using the SetFocus method to 
change the focus in code. 

Graphical User Interface (GUI): An object- 
based screen display that lets the user manipulate a 
mouse to point and click on graphical representations of 
programs and files, rather than forcing you to type ar- 
chaic file and program names to perform basic opera- 
tions. Windows has a GUI, while DOS has a command- 
line interface. 

Handler: A routine to manage a common condition or 
operation, such as error recovery or data movement. 

Hex Function: Returns a string that represents the 
hexadecimal value of a decimal argument. 

Hour Function: Returns the hour portion of the 
specified time. 

IIF Function: Returns one or two parts depending on 
the evaluation of an expression. 

Independent Software Vendor (ISV): A 

non-Microsoft company that markets tools and compo- 
nents to developers. 

Input Function: Returns characters read from a 
sequential file. 

InputBox Function: Displaysapromptinadialog 
box, waits for the user to input text or choose a button, 
and returns the contents of the text box. 



InStr Function: Returns the position of the first 
occurrence of a string within another string. 

Int, Fix Functions: Return the integer portion of 
a number. 

Intranet: The use of Internet technologies to link an 
organization's multiple information resources. 

Intrinsic: Acontrol that HTMLsupports directly, with- 
out requiring VBScript for implementation. 

Intrinsic Control: A bound control that is con- 
stantly in your toolbox and cannot be removed. 

IPmt Function: 

Returns the interest payment for a given period of an 
annuity based on periodic, constant payments and a 
constant interest rate. 

IRR Function: Returns theintemal rate ofreturn for 
a series of periodic payments and receipts. 

IsDate Function: Returns a value indicating 
whether a Variant argument can be converted to a date. 

IsEmpty Function: Returns a value indicating if a 
Variant variable has been initialized. 

IsNull Function: Returnsavalueindicatingwhether 
a Variant contains the Null value. 

IsNumeric Function: Returns avalue indicating 
whethera Variantvariable can be converted to a numeric 
data type. 
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KeyDown Event: Occurswhentheuserpressesa 
key while an object has the focus. 

KeyPress Event: Occurs when the user presses 
and releases an ANSI key. 

KeyUp Event: Occurs when the user releases a key 
while an object has the focus. 

LBound Function: Returns the smallest available 
subscript for the indicated dimension of an array. 

LCase Function: Returns a string in which all 
letters of an argument have been converted to lowercase. 

Left Function: Returns the leftmost n characters of 
a string argument. 

Len Function: Returns the number of characters in 
a string expression or the number of bytes required to 
store a variable. 

LinkClose Event: Occurs when a DDE conversa- 
tion terminates. 

LinkError Event: Generated when an error occurs 
during a DDE conversation. Recognized as the result of a 
DDE-related error lhal occurs when no VB code is being 
executed. The error number is passed as an argument. 
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LinkExecute Event: Occurs when a command 
string is sent by a destination application in a DDE 
conversation. The destination app expects the source app 
to perform the operation described by the string. 

LinkNotify Event: Occurs when the source has 
changed the data defined by the DDE link, if the LinkMode 
property of the destination control is set to 3 (Notify). 

LinkOpen Event: Occurs when a DDE conversa- 
tion is being initiated. 

Load Event: Occurs when a form is loaded. 

LoadPicture Function: Loads a picture into a 
form, picture box, or image control. 

Loc Function: Returns the current position within 
an open file. 

LOF Function: Returns the size of an open file in 
bytes. 

Log Function: Returns the natural logarithm of a 
number. 

LostFocus Event: Occurs when an object loses the 
focus, by a user tabbing to or clicking on another object, 
or by using the SetFocus method to change the focus. 
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Method: A task an object can perform. Unlike a 
subroutine, methods are internal to an object and nor- 
mally perform a task related to that object. 

Mid Function: Returns a string that is part of 
another string. 

Minute Function: Returns the minute portion of 
the specified time. 

MIRR Function: Returns the modified internal rate 
of return for a series of periodic payments and receipts. 

Month Function: Returns an integer between 1 
and 12, inclusive, that represents the month of the year 
for a date argument. 

MouseDown Event: Occurs when the user 
presses a mouse button. 

MouseMove Event: Occurs each time the user 
moves the mouse pointer to a new onscreen position. 

MouseUp Event: Occurs when the user releases 
a mouse button. 

Multiple-Tier: Client/server database architecture 
used to process SQL statements the app sends. The 
remote database processes the statements and returns 
the results. 



Now Function: Returns an encoded value repre- 
senting the current date and time. This function is most 
useful as an argument for other system clock functions. 

NPer Function: Returns the number of periods for 
an annuity based on periodic, constant payments and a 
constant interest rate. 

NPV Function: Returns the net present value of an 
investment based on a series of periodic payments and 
receipts and a discount rate. 

Object: A user interface element you create on a VB 
form by using a toolbox control. An object is a unit in VB 
that can encapsulate both code and data. VB objects can 
have properties, methods, and events. 

Object-Oriented Programming (OOP): 

A programming technique that lets you work with self- 
contained collections of data structures and routines that 
can interact with other objects. 

Oct Function: Returns text that represents the octal 
value of the decimal argument. 

OLE Automation: Creates programmable objects 
and applications other apps can call. It is the first step 
toward producing truly reusable software components. 

OLE Control: Custom controls with a visible 
interface. 

Open Database Connectivity (ODBC): 

Amethod of communicating with client/server databases 
in Visual Basic. ODBC drivers are classified as single tier 
or multiple tier. 
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Paint Event: Occurs when a form or picture box is 
notified to repaint its display. 

Partition Function: Returns a string indicating 
where a number occurs within a calculated series of 
ranges. 

PathChange Event: Occurs when the path 
changes by setting the FileName or Path properties. 

PatternChange Event: Occurs when the file 
listing pattern changes by setting the FileName or Pat- 
tern properties. 

Pmt Function: Returns the payment for an annuity 
based on periodic, constant payments and a constant 
interest rate. 

PPmt Function: Returns the principal payment for 
a given period of an annuity based on periodic, constant 
payments and a constant interest rate. 

Procedure: Synonymous with the term "subrou- 
tine" (see definition). 

Professional Edition: VB for Windows applica- 
tion development. It includes the features of Standard 
Edition plus additional custom controls and Crystal Re- 
port Writer. 



Program Statement: A keyword in the code that 
does the work of the program. 

Project: Describes the files associated with a program 
you develop using VB. 

Property: A characteristic of a particular object you 
can change either in Visual Basic's Properties window at 
design time, or by accessing an object's property from VB 
code at run time. 

PV Function: Returns the present value of an 
annuity based on periodic, constant payments to be paid 
in the future, and a constant interest rate. 

QB Function: Returns the RGB color code corre- 
sponding to a color number. 

QueryUnload Event: Occurs before a form or 
application closes. When an app is closing, the 
QueryUnload event occurs first in an MDI form and then 
in all other forms. 

Rate Function: Returns the interest rate per period 
for an annuity. 

Record: A collection of one or more fields containing 
related information. 

Relational Database: A database that orga- 
nizes data and relations between the data in tables, made 
up of columns and rows of data (Visual Basic refers to 
columns as fields, and rows as records). Relational data- 
bases allow the definition of data structures, storage and 
retrieval operations, and integrity constraints. Certain 
fields may be designated as keys, which means that 
searches for specific values of that field will use indexing 
to speed them up. Records in different tables may be 
linked if they have the same value in one particular field 
in each table. 

Reposition Event: Occurs after a record becomes 
the current record. 

Resize Event: Occurs when a form first appears or 
the size of an object changes. 

Resource File: Contains bitmaps, text strings, or 
other data you can change without editing code. 

RGB Function: Retumsalongintegerrepresenting 
an RGB color value. 

Right Function: Returns the rightmost n charac- 
ters of a string argument. 

Rnd Function: Generates a random number be- 
tween zero and one. 

RowColChange Event: Occurs when the cur- 
rently active cell status is transferred to a different cell. 

Run Time: Describes the condition of operations 
executing while aprogram is running. Opposite of design 
time. 

Scroll Event: Occurs while a user drags the box on 
a scroll bar. 
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Second Function: Returns the second portion of 
the specified time. 

Seek Function: Returns the current file position. 

SelChange Event: Occurs when the selected range 
changes to a different cell or range of cells. 

Sgn Function: Returns -1 if n is less than zero, 
if n is zero, and +1 if n is greater than zero. 

Shell Function: Runs an executable program. 

Sin Function: Returns the sine of the angle n. The 
angle n is expressed in radians. 

Single-Tier: A driver designed for use with remote 
desktop database management systems. The SQL state- 
ment issued to the ODBC driver is converted to low-level 
instructions that operate directly on the database files. 

SLN Function: Returns the straight-line deprecia- 
tion of an asset for a single period. 

Source Code: VB statements that are instructions 
for your program to follow. 

Space Function: Returns a string consisting of a 



Spc Function: Skipsaspecifiednumberof spaces in 
a Print # statement or Print method. 

Sqr Function: Returns the square root of n. 

Standard Controls: Contained in the VB EXE 



Standard Edition: Allows programmers to create 
applications for Microsoft Windows 95 and NT. Available 
only in a32-bitversion. Includes all intrinsic controls plus 
the grid, outline, and bound controls, and the common 
dialog control. 

Standard Module: Can contain public or mod- 
ule-level declarations of types, constants, variables, ex- 
ternal procedures, and public procedures. 

Str Function: Converts a numeric value to a string. 

StrComp Function: Returns a Variant that indi- 
cates the result of the comparison of two string argu- 
ments. 

String: A data structure composed of a sequence of 
characters. 

String Function: Returns a string whose charac- 
ters have a given ANSI code or are all the first character 
of a string expression. 

Structured Query Language (SQL): A 

database sublanguage used in querying, updating, 
and managing relational databases. An accepted stan- 
dard of database technology, SQL can be embedded in 
applications. 



Subroutine: A unit of source code that can be called 
from other parts of the source code. After a subroutine 
executes to completion, Visual Basic passes control to the 
code that called the subroutine. The term is synonymous 
with the term "procedure." 

Switch Function: Evaluates a list of expressions 
and returns a value or an expression associated with the 
first expression in the list that is true. 

SYD Function: Returns the sum-of-years' digits 
depreciation of an asset for a specified period of time. 

Syntax Error: A statement that violates one or 
more rules of the language. 



TUV 



Tab Function: Used with the Print* statement and 
the Print method to move to the position at which the next 
character is printed. 

Table: A logical grouping of related information 
arranged in rows and columns, in a similar fashion as a 
spreadsheet table. 

Tab Order: The order in which controls receive the 
focus when the user presses the Tab key. 

Tan Function: Returns the tangent of the angle n. 
The angle n is expressed in radians. 

Telephony: The conversion of sound to electrical 
signals, its transmission to another location, and its 
reconversion to sound, with orwithout the use of physical 
connecting wires. 

Third-Party Add-In: A tool for use in the design 
environment. Products in this category range from simple 
tools for aligning controls on forms to complex tools that 
create an entire app structure. Third party add-ins are 
less risky than third party controls because they are not 
tied to your application. 

Third-Party Control: A self-contained compo- 
nent that extends VB app functionality, such as spell- 
ing checkers, bound combo boxes, and multimedia 
components. 

Time Function: Returns the current time from the 
system clock. 

Timer Event: Occurs when a preset interval for a 
timer control has elapsed. 

Timer Function: Returns the number of seconds 
that have elapsed since 12 a.m. 

TimeSerial Function: Returns the time serial for 
a specific hour, minute, and second. 

TimeValue Function: Returns the time repre- 
sented by a String argument. 



UBound Function: Returns the largest available 
subscript for the indicated dimension of an array. 

UCase Function: Returns a string in which all 
letters of an argument have been converted to uppercase. 

Unload Event: Occurs when a form is about to be 
removed from the screen. 

Updated Event: Occurs when an object's data has 
been modified. 

Uniform Resource Locator (URL): AWorld 
Wide Web address. 

User Interface (Ul): The portion of the program 
with which the user interacts. Windows has a graphical 
user interface (GUI), compared to DOS's command-line 
interface (see definition of graphical user interface). 

Val Function: Converts a string value to a number. 

Validate Event: Occurs before a different record 
becomes the current record. 

Variable: A container used to temporarily hold data 
in the program. Numbers, names, and property values 
can be stored in variables. 

Variant: Aspecial datatype that can contain numeric, 
string, or date data as well as the special values Empty and 
Null. The Variant data type is the default for Visual Basic. 
It is the data type that all variables become if they are not 
explicitly declared as another type. 

VarType Function: Returns a value that indi- 
cates howa Variant data type is stored internally by Visual 
Basic. 

VBX Custom Control: Acustom control that can 
be used only with 16-bit versions of Visual Basic. 



WXYZ 



Weekday Function: Returns a whole number 
representing the day of the week. 

WYSIWYG: Acronym for "What you see is what you 
get." An onscreen display method that shows documents 
and graphic characters as they will appear when printed. 

Year Function: Returns the year portion of the 

specified date. 

Z-Order: A relative ordering that determines how 
controls overlap on a form. The first control in the form 
description establishes the bottom of the z-order. Con- 
trols that appear later in the form description are higher 
in the z-order and thus overlap controls that are lower in 
the z-order. 



http://www.windx.com 
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This special 
advertising section- 
highlights tools 
designed specifically 
for Visual Basic 
programmers. If you 
are interested in 
placing an ad in 
this section, please 
call 800-848-5523. 



This disclaimer 
covers all trademark 
references in this 
section. Advertisers 
recognize the 
trademark rights of 
other vendors. 
Specifically, 
QuickBasic and 
Visual Basic are trademarks of 
Microsoft Corporation. PowerBasic 
is a trademark of Spectra Publish- 
ing. True Basic is a trademark of 
True Basic, Inc. 



ActiveX Charge ! 




PC-Charge™ makes it easy to process credit 
cards, debit cards and check guarantee 
services in Windows. Sales, Credits, Voids, 
everything you need to replace that little 
black box. PC-Charge is certified with all 
major credit card processing companies and 
works with all major credit cards. 

ActiveX controls and ASP solutions make it 
easy to integrate PC-Charge into your 
applications and Internet/Intranet solutions. 
Starts at $295. 



GO Software, Inc. 
42 W. Montgomery Crossroad 
Savannah, GA 31406 
TELE: (800)725-9264 (912)925-4048 
FAX: (912)927-0214 
http://www.gosoftine.com/ 



VB5.COM 

Online Catalog for Visual Basic Developers. 
The best deals on Visual Basic 5.0, ActiveX 
Controls, Internet Tools, Training Materials, 
and more! Register online to win a free copy 
of Mastering Visual Basic 5.0! Too busy to 
surf? Send a request to info@VB5.COM for 
our complete online catalog. Secure Online 
Ordering! 

http://www. vb5. com 
E-Mail: info@vb5.com 



Resolution Independence 

ReSize gives your applications resolution 
independence. ReSize alters the sizes, font 
sizes, and positions of controls on Visual 
Basic forms as they are sized without 
requiring you to write code. ReSize will give 
your applications a more professional 
appearance and allow them to run on a full 
range of display devices. 

Larcom and Young 
P.O. Box 66379 Roseville, Ml 48066 
TELE: (810)771-9597 FAX: (810)771-9564 
Free demo: http://www.lyoung.com 



Online VB 
Training 

Are you a busy professional who chooses 
not to take one or more weeks away 
from work to attend condensed training? 
You need a training source that works 
around your schedule. 

ClassTime Online Training 
is for You! 

Combine self-paced learning with 
online training for great value! 

Learn Visual Basic: 

• at your own PC 

• from a Microsoft Certified Trainer 

• using excellent study materials 

• using online conferences & chat 
sessions with instructor and other 
students 

• with regular e-mail access to 
instructor 

• with 24-hour discussion forum 

• at about one-third the cost of 
classroom training 

Educational Computing Services 
| TELE: (502) 897-3791 FAX: (502) 897-733 
ecs @classtime. com 
http://www.classtime.com 



Install Problems ? 

Use Reveal 2.0. the industrial demystification 
tool to find missing DLLs, OCX's, ActiveX 
components, missing data files etc. 
Instantly solve registration problems, remote 
installation failures, etc. Determine every 
component used by ANY application. Save 
hours of tracing through code and 
components trying to find what went wrong. 
Simple to use user interface - drag, drop, & 
demystify. 

Addison Software, Inc. 
TELE: (972) 662-1147 FAX: (972) 307-3396 
http://www.addisonsw.com 







PLC OCX & DDE I/O Servers 

NT/95 OCX DRIVERS FOR ALLEN-BRADLEY, 
MODICON, GE-FANUC and OMRON 
IN-GEAR 32 ActiveX controls supercharge 
Visual Basic, C++, Excel'97 or Access for 
real-time control. 

Use IN-GEAR 32 DDE I/O SERVERS for 
SCADA/MMI packages. Visit our web site for 
IN-GEAR specs, demos and support. 
CimQuest, Inc. Products Group 
1015 Route 113, Suite 325 
Phoenixville, PA 19460 
TELE: (610) 935-8282 FAX: (610) 935-1902 
www.clmquest.com 
E-mail: vbx@cimquest.com 



Consulting 
& 

CareerLink 

For more information 
or to place your 
CareerLink ad 
Contact Lilly Gutierrez 
at: (650) 833-7121 
or email: 
lgutierrez@fawcette.com 



CareerLink 



http://careerlink. windx.con 



Product Sho 



USUAL BASIC 



Subscribe Now! 

Visual Basic Programmer's Journal is the 
most comprehensive source of information 
on Visual Basic. No other magazine 
covers VB in as much depth or provides 
as much useful information on Windows 
development. Your subscription will 
include twelve monthly issues plus two 
ipecial issues in 1998 for only $22.95 — 
:hat's a savings of 66% off the annual 
newsstand cover price! To subscribe now 
:all 800-848-5523. 

For customer service inquiries on your 
current subscription, please call 
300-848-5523 or send a fax to 650-321-3818 



Zip/Unzip Components 

The Xceed Zip Compression Library lets you 
easily add Zip and Unzip to your Windows 
applications. Includes all 16 and 32-bit VBX, 
OCX and VCL controls for 199.95 $US. New 
Xceed Zip Self-Extractor add-on lets your 
apps create customized self-extracting Zip 
files too. Visit www.xceedsoft.com/vbpj and 
get the free trial version today! 

Xceed Software Inc. 
TELE: (800) 865-2626 or (S14) 442-2626 
http:// www.xceedsoft. com/vbpj 




Bar Code DLLs 




\ 



FIB 



FAWCETTE 
TECHNICAL 
PUBLICATIONS 



Fawcette Technical Publications 
209 Hamilton Ave. 
Palo Alto, Ca 94301-2500 
http://www. windx.com 



Zip Developer's Tools 

Look to Inner Media for all of your ZIP/ 
UNZIP development needs: 

• DynaZIP is the industry leader for zip 
compatible royalty-free compression. 

• Active Delivery is the answer when you 
want to add self-extracting zip file creation 
to your applications. 

All products have a 30-day no risk guarantee. 

Inner Media, Inc. 
60 Plain Road, Hollis, NH 03049 
TELE: (800) 962-2949 or (603) 465-3216 
FAX: (603) 465-7195 
www.innermedia.com 



23456 78901 



Easily add professional bar coding 
capabilities to Windows 3.1, 95 and NT 
applications. Create extremely high 
quality, device independent, WMF 
graphics. Not fonts! Not bitmaps! 

• Easy to use. 1 6-bit + 32-bit DLLs. 

• Supports Code 39, UPC, EAN, Code 
128, I 2 of 5, PDF417, PostNET, 
CodaBar, EAN/UCC 128, etc... 
Plus many advanced features. 

• Royalty free! Fully guaranteed. 



T A L 



TAL Technologies 
(800) 722-6004 
www.taltech. com 







Leverage proven ActiveX technology 
from Visual Components 

Get great tools and a good value with the Visual Components Studio. 

With the Visual Components Studio, new Visual Basic developers can implement the same high-quality tools that experienced developers 
have used since 1993 at unprecedented savings. The Visual Components Studio packages four industry-leading ActiveX controls that can 
solve most any programming situation, are reusable, and can be distributed royalty free. 

The Studio includes: 

Formula One (32-bit, $199 standalone): This award-winning spreadsheet component 
offers Excel-compatibility, Internet Explorer friendly methods, and an efficient alternative 
to desktop spreadsheet applications. 

First Impression (32-bit, $199 standalone): This business charting component features 
more than 35 unique chart types, including 2D and 3D options, and Internet Explorer 
friendly methods. 

dbComplete (32-bit, $299 standalone): This collection of ActiveX database components 
includes an intuitive Outline Data Grid, intelligent Data source Control, and Control 
Library of six components for data editing, entry, and presentation. 

VisualSpeller (16/32-bit, $149 standalone): This easy-to-use component includes built-in 
dictionaries and allows you to quickly add spell-checking functionality to any application 
seamlessly. 

The Studio includes all four of these products for US$399, a savings of more than US$400 
over the standalone prices for the individual products. For free trials of all these products, 
visit http://www.visualcomp.com. 

Visual Components, Inc. 
Nletcalf Ave., Suite 300, Overland Park, KS 66213 USA 
TELE: 1-S0O-884-866S FAX: (913) 861-1390 

WEB: http://www.visualcomp.com 







Data grit, 



since 1SS3- 



CdrOCf Lil)l{ Call now t0 reserve Y our CareerLink space today: 1 -650-833-71 21 
Address: http://careerlink.windx.com 
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Great Jobs 
& Career Info 

The comprehensive site for 
WINDOWS/WEB/DBMS/UNIX 
Developers, visit today: 

www.developers.net ^<L 



developere.net 

A Community of 'Software Develooer< 




http:/ / www.developers.net 



VB Consultants Needed 

Spectrum Concepts, an information technology 
consulting firm providing leading-edge consult- 
ing expertise since 1979, is looking for Visual 
Basic developers to work ON-SITE at our cli- 
ents in the NY, NJ, and PA areas. We have many 
immediate long-term consulting needs. Please 
contact Michael Cohen at x248. 

Spectrum Concepts Consulting, Corp. 

150 Broadway, Suite 600, Dept. VB 
New York, NY 10038-4493 
TELE:(212) 791-4800 FAX:(212) 791-6639 



http:/ / www.sconcepts.com 



Visual Basic/SQL Programmers 

Solomon Software is a leading developer of 
Windows, Client/Server, and SQL-based ac- 
counting software for middle market businesses. 
We invite talented IS professionals to explore 
"Careers with Solomon" on our web site for more 
information on our job opportunities and excel- 
lent compensation and benefits package. 

Solomon Software, Dept. VBP 

PO Box 414 
Findlay, OH 45839 
FAX: 419-424-3400 
email: mjoseph@solomon.com 



http:// www.solomon.com 



The Development Exchange 



www. vb-zone.com 

The most comprehensive 
source of technical and 
how-to information on 
Visual Basic programming. 



FIB 



FAWCETTE 
TECHNICAL 
PUBLICATIONS 



209 Hamilton Avenue 
Palo Alto, Ca 94301-2500 
http://www. windx.com 











Consulting 
& 

CareerLink 

For more information 
or to place your 
CareerLink ad 
Contact Lilly Gutierrez 
at: (650) 833-7121 
or email: 
lgutierrez@fawcette.com 

CareerLink 



http:// car eerlink. windx.com 



Fast, Free Product Information 



Advertiser 

Telephone 

Web site location 



Page 



Application Developers Training 
Company 

800-578-2062 
http://www.appdev.com 



408-377-4770 

http://www.desaware.com 

DevX 

800-848-5523 
http://www.windx.com 

DevX ■ VB-Zone 

800-848-5523 
http://www.vb-zone.com 

ForeFront 

800-475-5831 
www.ffg.com 

FTP Books 

800-848-5523 
http://www.windx.com 

Setting Started with Visual Basil 
Subscriptions 

800-S48-5523 
http://www.windx.com 



C3 



37 



67 



41 



78, 99 



32 



inquiry .torn 19 

800-848-5523 
http://www.inquiry.com 

Java Pro Magazine Subscriptions 86 

800-848-5523 
http://www.java-pro.com 

KeyStone Learning Systems Corporation I 

800-748^1838 
http://www.klscorp.com 

Sheridan Software Systems C4 

800-VB-DIRECT 
http://www.shersoft.com 

Transceiver Corporation C2 

615-726-8779 

http://www.transcender.com 

VBCD 60 

800-848-5523 
http://www.windx.com 

VBITS • New York 7 

800-848-5523 
http://www.vbits98.com 

VB Jump Start 72 

800-848-5523 
http://www.vbits98.com 



Visual Bask Programmer's Journal 
Subscriptions 30 

800-848-5523 
http://www.windx.com 

Wave Technologies 6 

800-828-2050 

http://www.wavetech.com 



Web Builder CD-ROM 

800-848-5523 
http://www.windx.com 

CareerLink 
Product Showcase 



81 



112 
110-111 



To get immediate details on products 
advertised in this issue, you can simply 
log onto our online services - at 
http:/ /inf oasap.windx.com 

This will provide a list of direct links to 
this month's advertiser's Web site. 
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Customized Developer Training 
Presented Close To Home 



Appdev is now offering 
customized seminars on 
Microsoft Visual Basic for 
Applications (VBA). These seminars 
are designed for both Microsoft 
Office and the growing number of 
third-party 
products 



"Just the right scope of 
material, presented at 

JUST THE RIGHT PACE. ■ that use 



VBA as a 
programming language. We'll help 
you get up and running in VBA 
quickly. Seminars can be cus- 
tomized to emphasize certain topics 
or a particular application and can 
be presented — on or off site — 
at a convenient location. 



The Best Instructors 
in the Business 

Appdev instructors are first-rate pros. 
When they're not in our classrooms, 
they are 

highly "THE SEMINAR WAS 

SOUght-after i needed." "Excellent!" 

speakers and b^mmmJ 
authors of books, articles and reviews. 
Your future — and your company's 
— depend on what you know, so why 
not learn from the best? 



Practical Training 
You Can Put 
Right to Work 

Appdev seminars focus on practical 
solutions to real development prob- 
lems. Courseware is comprehensive, 
easy to understand and reusable as 
reference material. 



Featuring 

Microsoft^ 

"■r^Thnoiogy 



For FREE 

Information on 
Custom Seminars 
Act Now 

To set up a customized seminar for 
your company, or obtain information 
and a detailed outline, call toll free: 

1-800-578-2062 

or log on to our Web site: 



http://www.appdev.com 




VBA Training 
Customized to Fi 
Your Needs 

We can customize your VBA semi- 
nar to match the software you use. 
Just tell us if you want instruction 
on programming Microsoft Office 
97, or other third-party products 
that host VBA. We can also 
develop courseware for your 
customers or in-house staff. 



Topics include: 

• Variables and procedures 

• Using control structures 

• Understanding events 

• Using VBA's built-in functions 

• Programming objects 

• Handling errors 

• Debugging VBA code 

• Adding menus and toolbars 

• Creating arrays and collections 

• Creating class modules 

• Programming other VBA hosts 

• Creating integrated applications 




"Well organized and 
presented. i would 
definitely recommend." 



appdev 



Application Developers 
Training Company 



Talk about a Suite Solution. 




Presenting Sheridan's 

ActiveSuite Components 
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Used individually or wrapped /« a bundle, our ActiveX ™ 
controls help you develop your customers' favorite program 
flavor. The 'look and fed" of Office "97. 

Satisfy your need to simulate the appearance of Microsoft® 
Office '97, with Sheridan's ActiveSuite series of ActiveX 
components. Not only will they help you build your applications 
with a look that everyone knows and prefers, they also provide 
you with clever, time-saving short-cuts that dramatically boost 
productivity. Individually, our ActiveX components are powerful 
tools that dynamically speed development. Together, they form 
an integrated bundle that delivers a flexible, affordable solution. 
It's the fastest, easiest, most logical way to give your applications 
an integrated look of Office '97. 
Each ActiveSuite product in the series is a 32-Bit ActiveX 
component and supports Microsoft Visual Basic®, Visual C++* 
and Internet Explorer™. Individually packaged, ActiveSuite 
products deliver the familiar, rich Ul elements of Office '97. 
Now, that's a suite solution. 



ActiveListBar Perfect 
for web and client/serv- 
er developers, it lets you 
create web pages and 
traditional applications 
that emulate the sliding 
group metaphor used in 
Office '97's Outlook'" Bar 
for grouping icons into 
logical subsets. 



ActwebstBar 



Manufacturer's 
List Price: 

$139 



ActiveThreed Gives 
applications the "look 
and feel" of the Inter- 
net, with Active con- 
trol features such as a 
multi-pane splitter, like 
that in Microsoft 
Windows Explorer™, 
transparent backgrounds, tjsg 
and button styles with 
active borders. 




ActiveTreeView The 

ideal drop-in replacement 
and a perfect super set of 
the TreeView control in 
Visual Basic- . Lets you 
navigate large corporate 
databases more efficient- 
ly. It also features three 
data modes for enhanced 
databased connectivity. 



Active 
TreeView 



Manufacturer's 
List Price: 

$195 



ActiveToolBars Allows 
you to produce MenuBars 
and ToolBars just like 
those in Office '97. With 
its unique WYSIWYG 
designer, ToolBars and 
MenuBars appear in 
design-time just as they 
will at run-time, shaving 
hours off development. 



Active 
ToolBars 



Manufacturer's 
List Price: 

$179 



Sheridan, 

The Developer's Edge 

Sheridan Software Systems 

35 Pinelawn Road, Melville, NY 11747 

Phone: (516)753-0985 Fax: 15161753-3661 www.shersoft™ com 

©IBB Sheridan Software Systems, Inc Alt rights reserved ActiveToolBars, ActiveTreeView, AcuveSune, AcnveListBar, ActjveTtireed, Shersotl and (he 
Sheridan logo are trademarks of Sheridan Software Systems. Inc Microsoft. Visual Basic and Visual Ct+ are registered trademarks of Microsoft Corporation 
Windows Explotet, Internet Explorer, Outlook and ActiveX are trademarks of Microsoft Corporation Information and prices subject to change without notice. 




Order ActiveSuite, or any of its four components NOW 

by calling 1-800-VBDIRECT. Take advantage of ActiveSuite s 
WYSIWYG design capabilities and rich Ul enhancements 
today. For a FREE trial version call 1-800-VBDIRECT, 
or download it from our web site at: www.shersoft.com 



Manufacturer's List Price: 

$549 



1-800-VB DIRECT 



www.shersoft.com 



